delphi and key tab

[Look in future]

سلام دوستان
چگونه می توان بجای اینکه از کلید tab برای رفتن به edit بعدی استفاده کرد از کلید enter استفاده کرد

[delphiman00]

با دستورات API :

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
KeyPreview:=true;
if key=#13 then
begin
key:=#0;
PostMessage(handle,WM_NextDLGCTL,0,0);
end;
end;

[Mohammad S]

در رویداد OnkeyPress می نویسی

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

 begin

  Form1.ActiveControl:=Edit2;  íÇ  Edit2.SetFocus;

  key:=#0;

 end;

end;

[Panje Tala]

با سلام
در رویداد Onkeypress مربوط به کنترل مورد نظر کد زیر را وارد کنید:

if key=char(vk_return) then 

begin

postmessage(handle,wm_nextdlgctl,0,0);

end;

با این کار Focus به کنترل بعدی می رود ترتیب کنترلها را هم با Taborder درست کنید.

[ahmadbh]

من با این کد کار کردم

procedure TFUser.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

 begin

  edit3.SetFocus;

 end;

 end;

end.