TDBGrid中用Enter仿真Tab键盘
敬业的IT人
互联网
佚名
2008-1-4 15:44:05
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;
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;
- 最新文章
- Internet编程技巧1[01-04]
- 报表设计[01-04]
- 软件开发的管理和控制[01-04]
- DELPHI与INTERNET2[01-04]
- Delphi中停靠技术的实现[01-04]
- 用Delphi处理公历到农历的转换[01-04]
- 相关文章
