delphi4arab منتديات دلفي للعرب

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

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

[صورة: attachment.php?attachmentid=3414&stc=1&d=1333895654]

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

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

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

السلام عليكم
بالنسبة للسؤال الاول انه يقع ضمن ملعبي
فانا احب ان اصنع ادواتي بنفسي احيانا
انظر للمثال التالي:[attachment=2169]
بالنسبة للسؤال الثاني استخدم الخاصية AncHors لاي مكون فهي تقوم على امساكه من اطرافه التي تحددها انت فعندما تكبر النموذج او تصغره لا يتشوه

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

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

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

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

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

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

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

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

بهذا الشكل يمكنك ذلك أثناء التصميم من خلال 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 متلاصقة مثل الويب Smile

المرفق
بالتوفيق.

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

مبرمج مبتدأ

CMT-10

kachwahed

مبرمج مبتدأ

kachwahed

مبرمج مبتدأ

kachwahed

مبرمج مبتدأ