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

[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;

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

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

تحياتي