شبیه سازی دکمه tab در کی بورد

[Will_Smith]

با سلام
میخام بجای استفاده از متد هایی مثل SetFocuse و یا استفاده از وActivecontrol و با استفاده از شبیه سازی tab با زدن Enter به کنترل بعدی جهش کنم
یعنی با زدن دکمه Enter در هر کنترل tab رو شبیه سازی کنم
با تشکر

[یاسر مددیان]

تو رویداد onkeydown کنترل کد زیر رو بنویس :



if key = 13 the
activecontrol := نام کنترل




یا حق

[Batman]

با سلام
دوست عزیز اگر جستجو میکردید خیلی بهتر بود
در عین حال

if key = #13 then
begin
postmessage(handle,wm_nextdlgctl,0,0);
key := #0;
end;

موفق باشید

[Will_Smith]

دوست من تشکر از جوابت اما من قبلا سرچ کردم .تب و tabl رو سرچ کردم که چیزی دستگیرم نشد
مشکلم حل شد

[Hamid_PaK]

این هم جهت شبیه سازی کلید TAB و یا هر کلید دیگه ای که خواسته باشید :



keybd_event(VK_TAB, 1, 0, 0);

یا حق ...

[vesal]

خاصیت Keypreview فرم را True کن بعد این کد




procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
SelectNext(ActiveControl,True,True);
key:=0;

end;