فوكوس

[Mr_Mahmoud]

سلام
من ميخام وقتي كاربر تو اديت حتي 1 كاراكتر وارد كرد دكمه ok فوكوس بگيره به طوري كه وقتي اينتر رو زد انگار روي ok كليك كرده.هر كار كردم تو onchange نتونستم اين كار رو بكنم

[Felony]

کد زیر رو تو رویداد Change ادیت مورد نظرت بنویس :


Button1.SetFocus;

[tdkhakpur]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key>=32 then
Button1.SetFocus;
end;
end.

[vcldeveloper]

من ميخام وقتي كاربر تو اديت حتي 1 كاراكتر وارد كرد دكمه ok فوكوس بگيره به طوري كه وقتي اينتر رو زد انگار روي ok كليك كرده.
خصوصیت Default آن دکمه را True کنید، همین.