رفتن به شی بعدی با تب

[tik_tak]

من واسه رفتن از یه شی به شی دیگه با کلید اینتر این کد رو تو رویداد onkeypress هرشی مینویسم
اگه بخوام با کلید تب برم به شی بعدی چی ؟ این کد چه تغییری میکنه ؟


If key=#13 then
ActiveControl:=edit6;

[Modernidea]

من واسه رفتن از یه شی به شی دیگه با کلید اینتر این کد رو تو رویداد onkeypress هرشی مینویسم
اگه بخوام با کلید تب برم به شی بعدی چی ؟ این کد چه تغییری میکنه ؟


If key=#13 then
ActiveControl:=edit6;



در باره کدی که نوشتی، به این شکل هم میشه نوشت.


if Key=#13 then
begin
Key:= #0;
Edit6.Setfocus;
end;



در مورد سوال:
فکر نمی کنم نیازی به کد داشته باشه.باید در قسمت "object Inspector" در قسمت "tab order" شماره تب هر شی را مشخص کنید.تا بازدن هر بار کلید تب شی بعدی فکوس شود.

[Developer Programmer]

کلید تب برم به شی بعدی چی
واسه تمام کنترلهایی که میخوای کلید Tab رو قبول کنن؛ Tab Stop رو True کن و TabOrder رو به ترتیب از صفر مقدار بده.

[tefos666]

در رویداد KeyPress شی مورد نظر بنویس - اینطوری حتی با enter هم به order بعدی میره



IF Key = Char(VK_RETURN) Then
Begin
Key := #0;
SelectNext(TCustomEdit(Sender),True,True);
End;
برای مرتب شدن هم tab order هرکدوم رو عدد بزار از صفر شروع میشه

اگه خواستی order رو با arrow key ها حرکت بدی از کد زیر استفاده کن



if key=vk_up then // If you press up key
selectnext(self.ActiveControl,false,true);// move to previous control
if key=vk_down then // If you press down key
selectnext(self.ActiveControl,true,true);// move to next control

کمکی بود در خدمتم - یا علی

success is doing , not wishing ....:متفکر:

[Omid_hope]

دیگه نیازی نیست کد بنویسی . Taborder اشیا رو از 0 تا آخر مرتب کن . همین