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.