问一个dbedit的问题(50分)

  • 主题发起人 主题发起人 delphilike
  • 开始时间 开始时间
D

delphilike

Unregistered / Unconfirmed
GUEST, unregistred user!
使用两个dbedit
如何在dbedit1输入完成,即按下enter键时输入焦点自动切换到dbedit2上呢?
 
setfocus(dbedit2)可以
form.activecontrol:=dbedit2也可以。
 
Form KeyPreview : True
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
key:=#0 ;
Perform(WM_NEXTDLGCTL,0,0);
End;
end;
 
多人接受答案了。
 
后退
顶部