تغییر فوکس به آیتم بعدی

[parhizkar2000]

سلام
چطوری میشه فوکس رو از یک کامپونت روی یک به فرم به کامپونت دیگه تغییر داد. البته کامپونت بعدی ممکنه اونی نباشه که بعد از کامپونت فعلی روی فرم گذاشته شده باشه.(تغیر فوکس از فعلی به هر کامپونت دلخواهی توی همون فرم)

[mzjahromi]

برای موضوعهای ساده اینطوری حتما اول جستجو کنید. به هر حال


Edit2.SetFocus;
****Or******
ActiveControl:=Edit2
*****or****
ActiveControl:=FindNextControl(ActiveCOntrol,True, True,False)

البته آخری فقط می ره سراغ کامپوننت بعدی

[parhizkar2000]

دوست عزیز منظورم اینه که یه تابعی در ست کنم وهمشیه داشته باشم و وقتی کاربر کلید Enter رو زد خودش بره ادیت بعىی


if key=#13 then
nextedit();

[babak869]

در خاصیت KeyPress ادیت بنویس


begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
SelectNext(Sender as TWinControl,False,True)
else
SelectNext(Sender as TWinControl,True,True);
Key := #0
end;

موفق باشید

[parhizkar2000]

متشکرم میشه توضیح کوتاهی در مورد این قطعه کد که زحمت کشیدید بدید؟

[mzjahromi]

ردیف سومی که من گفته بودم همین کار رو می کنه


ActiveControl:=FindNextControl(ActiveCOntrol,True, True,False)

کافیه خاصیت Key Preview فرمت رو True کنی و تو On Key Press بنویسی


if key=#13 then
ActiveControl:=FindNextControl(ActiveControl,True, True,False)