الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل التركيز

مغلق
بدأه am2812 في 10 أبريل 2005 · 4 رد · 589 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم يا أخوان

أنا وضعت هذا الكود courcefrm.Perform(WM_NEXTDLGCTL, 0, 0);

في حدث ON HEY PRESS

والخاصية KEYPREVIEW

على TRUE

والتركيز ينتقل بشكل طبيعي ولكن عندما يكون يصل دي بي كمبوبوكس ينتقل للنعصر التالي بزيادة واحد

ولست ادري ما السبب

افيدوني جزاكم الله خيراً

20_09_05_04_45_39_1127216739saudi_aC_.gif
#2

جرب

SelectNext(ActiveControl,True,True)

وتأكد من ترتيب المكونات من خلال tab Order

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#3

الأخ محمد نسمان

جزاك الله خيراً

سوف اجرب هذه الطريقة

والترتيب عندي يبدأ من 0 1 2 3

:( :(

20_09_05_04_45_39_1127216739saudi_aC_.gif
#4
 -PROBLEM :
How can I programmatically tab to next control ?

 -ANSWER :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key = #32 then
     begin
          Key := #0;
          PostMessage(Screen.ActiveForm.Handle, WM_NEXTDLGCTL, 0, 0);
     end;
end;

هي طب للقلوب *** ذكرها يمحو الذنوب *** نورها سر الغيوب *** لاإله إلاالله

#5

الأخ Mahmoud Sh7

جزاك الله خيراً على ردك المتكامل

لكن لو استبدلنا هذه الجملة if Key = #32 then باك سبيس

بــــ if Key = #13 then إينتر

وشكراً

20_09_05_04_45_39_1127216739saudi_aC_.gif

هذا الموضوع مغلق.

مواضيع مشابهة