博客主要围绕TDBGrid展开，介绍了在TDBGrid里用Enter键来仿真Tab键盘的相关内容，属于信息技术中前端开发或界面交互方面的知识。
procedure TForm1.FormKeyPress(Sender: TObject; var Key:
Char);
begin
if Key = #13 then //如果是一个Enter键盘
begin
if not (ActiveControl is TDBGrid) then //如果当前的控件不是TDBGrid
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
end
else if (ActiveControl is TDBGrid) then //在TDBGrid中
begin
with TDBGrid(ActiveControl) do
begin
if selectedindex < (fieldcount -1) then //如果不是最后一个字段
selectedindex := selectedindex +1
else
selectedindex := 0;
end;
end;
end;
end;
扫一扫
4447
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
