كيف أستدعي بانل و تختفي البانل الأخرى ؟؟

[djaber]

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

الكود التالي gلتنقل بين البانل و الأخر

كود :

procedure TForm2.FormActivate(Sender: TObject); begin Panel1.Visible:=False; Panel2.Visible:=false; Panel3.Visible:=false; Panel4.Visible:=false; Panel5.Visible:=false; end;

و بالنسبة للأزرار
مع كل زر :

كود :

procedure TForm2.spSkinSpeedButton2Click(Sender: TObject); begin Panel1.Visible:=true; Panel2.Visible:=false; Panel3.Visible:=false; Panel4.Visible:=false; Panel5.Visible:=false;

هل هو صالح ؟ هل هناك شيء أخر لم أضيفه ؟

و ما هو كود الرجوع إلى الصفحة الرئيسية وهي form2 ؟