كيف أختصر هذا الكود؟

[ALG2009]

السلام عليكم

هل يمكن إختصار هذا الكود؟

كود :

procedure TForm2.SpeedButton1Click(Sender: TObject); begin if panel1.tag =0 then   begin    panel1.Height:=345;    panel1.Tag:=1;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel1.Height:=40;    panel1.Tag:=0;   end; end; procedure TForm2.SpeedButton2Click(Sender: TObject); begin if panel2.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=345;    panel2.Tag:=1;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel2.Height:=40;    panel2.Tag:=0;   end; end; procedure TForm2.SpeedButton3Click(Sender: TObject); begin if panel3.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=345;    panel3.Tag:=1;    panel4.Height:=40;    panel4.Tag:=0;   end else   begin    panel3.Height:=40;    panel3.Tag:=0;   end; end; procedure TForm2.SpeedButton4Click(Sender: TObject); begin if panel4.tag =0 then   begin    panel1.Height:=40;    panel1.Tag:=0;    panel2.Height:=40;    panel2.Tag:=0;    panel3.Height:=40;    panel3.Tag:=0;    panel4.Height:=345;    panel4.Tag:=1;   end else   begin    panel4.Height:=40;    panel4.Tag:=0;   end; end;

[لؤي]

السلام عليكم

لما لا تستعمل :

PHP كود :

Case then 


[ALG2009]

كيف تستخدم Case وكل كود في زر (button)

---

مع العلم أن هذه الازرار والبانل الخاص بها موجودون داخل بانل Panel مشترك
ممكن يكون الاختصار بشئ مثل If panel is sender أو مثل هذا القبيل لأني حاولت فهم السندر وتطبيقاتها ولم أستطع

[S.FATEH]

السلام عليكم

يمكنك استخدام الـ Sender

[ALG2009]

السلام عليكم

يمكنك استخدام الـ Sender

مشكلتي مع الـ Sender أني لم أفهمه
من يرسل الأمر هل هو الزر الـ Panel كيف يعمل الساندر هذا ما لم  أفهمه

[AX302]

السلام عليكم 

كود :

procedure ResizePanels(CheckedPanel : TPanel; ChangedPanels : array of TPanel; ChangedPanelsHeights : array of Integer; ChangedPanelsTagss : array of Integer); begin   if CheckedPanel.Tag = 0 then     begin       for var I := Low(ChangedPanels) to High(ChangedPanels) do         begin           ChangedPanels[I].Height := ChangedPanelsHeights[I];           ChangedPanels[I].Tag    := ChangedPanelsTagss[I];         end;     end   else     begin       CheckedPanel.Height := 40;       CheckedPanel.Tag    := 0;     end; end;

طريقة الاستعمال 

كود :

procedure TForm1.Button1Click(Sender: TObject); begin   ResizePanels(panel1, [panel1, panel2, panel3, panel4], [345, 40, 40, 40], [1, 0, 0, 0]); end;

كما يمكنك استعمال Sender

[ALG2009]

جزاك الله خيرا
الطريقة فعالة وتعمل

وأتمنى أن أطلع على كيفية عملها بالـ Sender

[AX302]

جزاك الله خيرا
الطريقة فعالة وتعمل

وأتمنى أن أطلع على كيفية عملها بالـ Sender

طريقة عمل Sender جد بسيطة فهو مجرد برامتر من نوع TObject , يمكنك الاستعانة به لاكنك سوف تقع في مشكل التكرار عن طريق ال IF / AS , ادا كنت تريد استعماله فوق قم بعمل Select للازرار التي تريد تغيير حجم Panels بها كما في الصورة ادناه و في حدث OnClick اضغط مرتين لانتاج Method يقوم بمناداتها كل الازرار التي عملت لها Selection بعدها مجرد استعمال لل IF داخل هاته Method.

كود :

if Sender = Button1 then

كود :

if Sender as TButton then

[ALG2009]

الله يرضى عليك وزادك الله خيرا وزادك من علمه
شكرا جزيلا AX302

[ferrero]