5,928
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
nhdj 2004-05-08
- 打赏
- 举报
form1.keypreview = true
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
dbgrid2.setfocus();
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
dbgrid2.setfocus();
end;
yurenjf 2004-05-08
- 打赏
- 举报
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = VK_ESCAPE) and (DBGrid1.Focused) then
DBGrid2.SetFocus ;
end;
Shift: TShiftState);
begin
if (key = VK_ESCAPE) and (DBGrid1.Focused) then
DBGrid2.SetFocus ;
end;
