设置Form的KeyPrview属性为True,然后在Form的KeyDown事件中写下面语句
这里只用向下键为例
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_DOWN then
begin
if ActiveControl = DBGrid1 then
begin
DBGrid1.DataSource.DataSet.Next;
Abort;
end
esle
inherited;
end;
end;
这里只用向下键为例
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_DOWN then
begin
if ActiveControl = DBGrid1 then
begin
DBGrid1.DataSource.DataSet.Next;
Abort;
end
esle
inherited;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货