كيف أجعل combobox يعمل على pagecontrol

[hinalyna]

السلام عليكم أود أن تدلوني كيف أجعل التعليمات التالية قابلة للتنفيذ على page controle لأني نفذتها على الفورم عادي لكن على page controle لا تعمل .


procedure TForm3.ComboBox5Change(Sender: TObject);
begin
if combobox5.Text='1' then
edit2.Text:='200';
end;

[ALmuhhnad]

وضح ما المطلوب أكثر !!

إذا كنت تريد إستعمال الحدث OnChange الخاص بـ TPageControl
فهذا سهل .. قم بتحديد الـ TPageControl الخاص بك وليس الـ TTabSheets التي يحتويها الـ TPageControl
.. ثم إذهب إلى قائمة الاخداث الخاصة به ثم قم بالضغط المزدوج على الحدث OnChange

وأكتب الامر الذي تريد

PHP كود :

if combobox5.Text='1' then
edit2.Text:='200'; 


وإذا كنت تريد قرائة رقم الـ Tab الحالي للـ TPageControl يكون الكود كتالي :

PHP كود :

if PageControl1.TabIndex = 1 then
    edit2.Text:='200'; 


[تلميذ]

استاذى الكريم ALmuhhnad حياك الله جزاك الله كل خير على ما تقدمه .
لى سؤال على ما قدمت حضرتك فى الاجابة هنا حتى اتعلم اكثر
المبدء المستخدم الذى ذكرته حضرتك يفهم منه ان الـ TabIndex سواء كان رقمه 1 او 2 او 10 لا نستطيع التعامل معه مباشرة من خلال الكود الى بعد الدخول اليه من خلال PageControl الذى يحتضنه او يحتويه الا من خلال الكود ايضا لان الـ PageControl يحتويه الفورم و الـ TabIndex يحتويه PageControl فلا بد من دخول متسلسل للوصول الى الكمبوننت المنشود .
بشكل عام هل فهمى صحيح للمسئلة ؟

[ALmuhhnad]

لم افهم ماذا تقصد ..

وعلى ما يبدو لي من اسئلتك انك لم تتعلم اساسيات اللغة Object Pascal .. فهي تغنيك عن الكثير من الاسئلة

معلومة : لغة الدلفي او XE او حتى Lazars وكذلك CodeTyphon ... هي بالاساس لعة البرمجة Object Pascal مغ بعض التطوير والبهارات