قائمة منسدلة بالـ button و تكبير البرنامج

[مبرمج مبتدأ]

السلام عليكم و رحمة الله و بركاته

1- كيف يقوم باضافة قائمة منسدلة بالـ BUTTON ؟؟ .



أي انني لما اضغط على Button1 تنزل الــ Buttons الأخرى و تظهر الـ Lables التي هي الخيارات

2- كيف أجعل البرنامج لما أكبره لا يتشوه و لما أضغره لا يتشوه أيضا أي أنني لا احدد حجمه مسبقا.


و السلام عليكم و رحمة الله و بركاته

[CMT-10]

السلام عليكم
بالنسبة للسؤال الاول انه يقع ضمن ملعبي
فانا احب ان اصنع ادواتي بنفسي احيانا
انظر للمثال التالي:
  ListClick.rar (الحجم : 87.78 ك ب / التحميلات : 121)
بالنسبة للسؤال الثاني استخدم الخاصية AncHors لاي مكون فهي تقوم على امساكه من اطرافه التي تحددها انت فعندما تكبر النموذج او تصغره لا يتشوه

[kachwahed]

وعليكم السلام ورحمة الله
الأول جرب Explorer Bar
http://www.delphi4arab.net/forum/showthr...p?tid=1993
أجوبة للسؤال الثاني:
http://www.delphi4arab.net/forum/showpos...stcount=16
حاول إفراد كل سؤال بموضوع
بالتوفيق.

[مبرمج مبتدأ]

و عليكم السلام و رحمة الله و بركاته
الجواب الأول: وفى بالغرض فجزاك الله خيرا و جعله في ميزان حسناتك.

الجواب الثاني: مع أني فعلت ما تفضلت بذكره إلا أن البرنامج لا زال يتشوه أي أن النافذة تكبر و لكن العناصر الأخرى تبقي صغيرة كما هي.

وعليكم السلام ورحمة الله
الأول جرب explorer bar

بارك الله فيك أخي الكريم و جوزيت خيرا ان شاء الله إلا أن مشكلة الفورم مازالت باقية معي

[kachwahed]

افتح مشروع جديد، وضع فيه المشكلة ثم أرفقه هنا (ملفات pas/dfm/dpr فقط)

[مبرمج مبتدأ]

افتح مشروع جديد، وضع فيه المشكلة ثم أرفقه هنا (ملفات pas/dfm/dpr فقط)

لقد قمت بما تفضلت به أخي الكريم و قمت رفع مثال، و ما أ ريده أنني لما أكبر البرنامج فإن الــ Edit و الــ DbGrid تكبر و تتنسق لكي لا يظهر تشوه في البرنامج و شكرا لك مسبقا.

[kachwahed]

بهذا الشكل يمكنك ذلك أثناء التصميم من خلال Object Inspector:

كود :

procedure TForm1.FormCreate(Sender: TObject); begin Button5.Anchors := [akTop, akRight]; Button6.Anchors := [akTop, akRight]; Button7.Anchors := [akTop, akRight]; Button8.Anchors := [akTop, akRight]; DBGrid1.Anchors := [akLeft, akTop, akRight, akBottom]; Edit1.Anchors := [akTop, akLeft, akRight]; Edit2.Anchors := [akTop, akLeft, akRight]; Edit3.Anchors := [akTop, akLeft, akRight]; Edit6.Anchors := [akTop, akLeft, akRight]; Constraints.MinHeight := Height; Constraints.MinWidth := Width; end;

غير أني أفضل أن يكون التصميم في شكل Panels متلاصقة مثل الويب المرفق
بالتوفيق.

[مبرمج مبتدأ]

كفيت و وفيت و جوزيت خيرا ان شاء الله تعالى، و جعل الله عملك في ميزان حسناتك يوم لا ينفع مال و لا بنون.