+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ (/showthread.php?tid=4810)
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - djaber - 25-12-2012
السلام عليكم
كيف إستدعاء بانل عند الضغط على button وتختفي البانل الأخرى و عند الضغط على button home تعود إلى الصفحة الأولى من البرنامج
أستعمل دالفي سكين
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - S.FATEH - 25-12-2012
لم افهم ماذا تريد بالضبط اذا كانت لديك العديد من Panels الواحدة فوق الاخرى يفضل استخدام مكون PageControl من Win32 وضح اكثر ماذا تريد بالضبط
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - djaber - 25-12-2012
عندما أضغط على button ( client ) تفتح البانل الخاصة بالزبون و عند الضغط على button أخر مثلا تختفي البانل الخاصة بالزبون و تظهر بانل الخاصة بال: button الثاني
هذه صورة من واجهة برنامجي كذلك
h7rj1.jpg (الحجم : 16.76 ك ب / التحميلات : 60)
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - hamou1982 - 25-12-2012
السلام عليكم اخي ومرحبا
فيما يخص اظها واخفاء panel
نفترض انك تستعمل 5 من Panel
و5 Button
عندما نريد إظهار Panel1
نكتب في الحدث للButton المتعلق باظهلر Panel1
كود :
Panel1.enabled:=true;
Panel2.enabled:=false;
Panel3.enabled:=false;
Panel4.enabled:=false;
Panel5.enabled:=false;يجب ان تضع في الحدث OnActivate المتعلق بالـ Form المتواجد بها Panels
كود :
Panel1.enabled:=False;
Panel2.enabled:=false;
Panel3.enabled:=false;
Panel4.enabled:=false;
Panel5.enabled:=false;كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - S.FATEH - 25-12-2012
hamou1982 طريقة متعبة ...
بداية لما لا نستخدم ماج يوفره لنا دلفي اي Sender و خاصية ControlCount
ضع Panel1 على الفورم
ضع داخل Panel1 بانل اخر Panel2
ضع داخل Panel1 بانل اخر Panel3
ضع داخل Panel1 بانل اخر Panel4
.
.
ضع داخل Panel1 بانل اخر Panel7
في كل بانل من البانلات السابقة اضف زر SpeedButton باختصار انشئ الشكل الذي في الصورة
الآن في حدث الضغط على زر SpeedButton1 مثلا
PHP كود :
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Panel1.ControlCount - 1 do
begin
if (Panel1.Controls[i] is TPanel) then
TPanel(Panel1.Controls[i]).Height := 22;
end;
TSpeedButton(Sender).Parent.Height := 200;
end;
الان اذهب الى جميع الازرار الاخرى واحدا واحدا يمكنك تحديدهم جميعا عن طريق الضفط على Shift
مثلا اذهب الى الزر SpeedButton2 ثم Events في حدث OnClick قم باستعراض اللائحة و اختر
SpeedButton1 انتهينا
الان لا يهم عدد البانل التي لديك
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - djaber - 26-12-2012
السلام عليكم ورحمة الله تعالى وبركاته
الكود التالي 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 ؟
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - M_Mori2010 - 27-12-2012
الرجوع للصفحة السابقة
PHP كود :
Form3.Close
Form2.Show
او
PHP كود :
Form3.hide
Form2.Show
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - djaber - 27-12-2012
لكن أنا لدي button Home أود عند الضغط عليه أعود مباشرة إلى الصفحة الرئيسية هي : Form2
شكرا
كيف أستدعي بانل و تختفي البانل الأخرى ؟؟ - الحويطي - 05-01-2013
إقتباس :لكن أنا لدي button Home أود عند الضغط عليه أعود مباشرة إلى الصفحة الرئيسية هي : Form2
شكرا
في الحدث للButton اكتب التالي
كود :
Form2.Show;أخي الكريم ... حاول الاطلاع على المكونات التالية فهي أسهل ولا تحتاج لأكثر من فورم واحد
TCategoryGroupPanel
وهذا مثال http://www.delphi4arab.net/forum/attachment.php?attachmentid=3790&d=1354977306
أيضا يوجد شيء آخر لو اهتممت به TPageControl
وانظر أيضا إلى TTabControl
أسأل الله سبحانه وتعالى أن يغفر لي ولك وكل من يقرأ هذا الكلام ... بالتوفيق