P PowerCMM Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-12 #1 以前的帖子都是用回车键来实现TAB键功能,我现在想用回车键来增加记录,该怎么实现?
A akaiwei Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-12 #2 在keyup或者keydown中判断是否为回车键,如果是在DBGrid相连的dataset中append一条 记录就可以了吧!
S smilboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-12 #3 procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key =13 then ADOTable1.Append; end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key =13 then ADOTable1.Append; end;
P PowerCMM Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-12 #4 谢谢你们!我用PostMessage实现了更好的功能!
D Dooing Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-12 #5 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;
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;