在DBGrid中向下键头用来增加记录,怎样实现用回车键代替向下键头实现在DBGrid中增加记录的功能(50分)

  • 主题发起人 主题发起人 PowerCMM
  • 开始时间 开始时间
P

PowerCMM

Unregistered / Unconfirmed
GUEST, unregistred user!
以前的帖子都是用回车键来实现TAB键功能,我现在想用回车键来增加记录,该怎么实现?
 
在keyup或者keydown中判断是否为回车键,如果是在DBGrid相连的dataset中append一条
记录就可以了吧!
 
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key =13 then
ADOTable1.Append;
end;
 
谢谢你们!我用PostMessage实现了更好的功能!
 
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key =13 then
if ADOTable1.Eof then
ADOTable1.Append
else
ADOTable1.Next;
end;
 
后退
顶部