كيف أجعل النوافذ ف نافذه وآحده ؟

[delphi4you]

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

ربما فشلت في صياغه عنوان الموضوع

لكن لدي استفسار بسيط ألا وهو

لاحظت في البرامج قائمه لست فيو

وقآموا بوضع الوظائف في نافذه واحد

للتوضيح أكثر

شاهدوا هذه الصورة

http://www.filaty.com/i/805/c2a0e44.Untitled.gif

كيف استطيع وضع ايقونات مع الاسماء في قائمه لست فيو ؟

وكيف أستطيع ربط الزر من قائمه لست فيو مع قروب بوكس الخاصه به ؟

وجزآكم الله خيرا

[B.M.AbdelAziZ]

يمكن القيام بالامر باكثر من طريقة
مثلا استعمال اكثر من Panel وتخفيها كلها بتغيير الخاصية Visible الى False
وعندما تريد اظهارها يكفي تغيير Visible الى True

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

[delphi4you]

تشكر على كجهودك يا اخي

ولاكن السؤال لم تجآوب عليه بشكل كآمل

جربت طريقتك visible false اختفت النافذه نعم

ولاكن عندما اظغط على الزر الأول يظهر القروب بوكس

وعندما اظغط على الزر الثاني يقوم القروب بوكس 2 بالركوب والتداخل على قروب بوكس 1

**** أن أظغط على الزر الثاني فيختفي القروب البوكس 1 ويظهر 2 كما في الصورة ؟

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

[B.M.AbdelAziZ]

قبل ان تظهر الثاني عليك ان تخفي الظاهر
اعطيك مثال
لديك 4
عند الضغط على اي زر تخفي الجميع وتظهر فقط الخاص بالزر
فهمت ؟

[delphi4you]

نعم فهمتك يادلتا

أررررررجوك أن لاتغضب علي فأنا مبتدئ !

سأحاول وسأوافيكم بالنتائج

[delphi4you]

للأسف الشديد لا أعرف كيف أقوم بعملها

لقد غيرت خاصيتها visible الى false واختفت

لاكن **** ربط الزر من قائمه لست فيو بالقروب بوكس الخاص به

كيف يتم ذلك ؟

**** أن تشرحو لي فأنا مبتدئ

[merouane]

أرفق محاولتك

[delphi4you]

ها أنا أرفقت لك محآولتي أتـمنى حل المشكل

http://www.mediafire.com/?zymcfxccvdu

[merouane]

السلام عليكم

الخطأ : لقد جعلت GroupBox تابعة للـ GroupBox التي قبلها
http://up104.arabsh.com/my/572c65d.gif

أي عند إخفاء الأب GroupBox1 سيختفي GroupBox2 ويليه GroupBox3 ويليه GroupBox4
ولا ينفع إظهار GroupBox3 في حين أنه تابع للـ GroupBox1 الذي هو مخفي

الصواب

http://up104.arabsh.com/my/8b884d3.gif

procedure TForm15.ListView1Click(Sender: TObject);
begin
GroupBox1.Visible := False;
GroupBox2.Visible := False;
GroupBox3.Visible := False;
GroupBox4.Visible := False;

case ListView1.ItemIndex of
0: GroupBox1.Visible:=True;
1: GroupBox2.Visible:=True;
2: GroupBox3.Visible:=True;
3: GroupBox4.Visible:=True;
end;
end;

يجب أن نعرف أين نضع مكوناتنا

التصحيح في المرفقات

تحياتي :)

[delphi4you]

جزآك الله خيرآ يا اخي مروآن

وأنا فعلا فهمت كلآمك

لأنني عندما حآولت سحب قروب بوكس 2 من محيط قروب بوكس 1 لم أستطيع تحريكه خارج النطاق

وهذا دليل على أنه تآبع له

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