procedure TfrmBorrow_Edt.edtBalanceKeyPress(Sender: TObject; var Key: Char); begin if (key = #13) then begin Perform(WM_NEXTDLGCTL,0,0); end; end;
DBGrid1怎样按回车代替TAB键
好的代码像粥一样,都是用时间熬出来的
procedure TfrmBorrow_Edt.edtBalanceKeyPress(Sender: TObject; var Key: Char); begin if (key = #13) then begin Perform(WM_NEXTDLGCTL,0,0); end; end;