PDA

View Full Version : delphi and key tab



Look in future
چهارشنبه 13 خرداد 1383, 11:45 صبح
سلام دوستان
چگونه می توان بجای اینکه از کلید tab برای رفتن به edit بعدی استفاده کرد از کلید enter استفاده کرد

delphiman00
چهارشنبه 13 خرداد 1383, 12:21 عصر
با دستورات 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
چهارشنبه 13 خرداد 1383, 12:24 عصر
در رویداد 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
چهارشنبه 13 خرداد 1383, 12:40 عصر
با سلام
در رویداد Onkeypress مربوط به کنترل مورد نظر کد زیر را وارد کنید:


if key=char(vk_return) then
begin
postmessage(handle,wm_nextdlgctl,0,0);
end;


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

ahmadbh
یک شنبه 08 مرداد 1391, 16:05 عصر
من با این کد کار کردم

procedure TFUser.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit3.SetFocus;
end;
end;
end.