mnour كتب :يمكنك بدل استخدام Self استخدام Sender

مشكلتك أخي المبرمج تحل باستعمال الـ Parameter:

PHP كود :

Sender: TObject 


هذا الـ Parameter موجود في جل الإجراءات التي تأتي من الأحداث (Events) من الـ Inspector Object
لكن المشكلة أن Sender نوعه TObject ولذلك ليس له Caption ولا Enabled ولا أكثر خواص TButton ولذلك نستعمل Transtype (باللغة العربية التغليف أو التمرير أو غير ذلك... نسيتها بالفصحى )، والطريقة مشهورة كما يلي:

كود :

(Sender as TButton)

أي نستعمل المتغير Sender باعتباره TButton وليس ككائن TObject.
يمكن كتابة ذلك بطريقة أخرى:

كود :

TButton(Sender)

والطريقة للوصول الى Caption:

PHP كود :

TButton(Sender).Caption := '&OK'; 


أو

PHP كود :

(Sender as TButton).Caption := '&OK'; 


ولا تنسى أن Sender معرف في الإجراء لاحظ:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject); 


ملاحظة:
لاستعمال نفس الإجراء مع عدة مكونات، قم بتحديدها جميعا، ثم نقر مزدوج على الحدث واكتب الأوامر باستعمال (Sender as TButton) عوضا عن اسم المكون.

في حالتك لا داعي للـ Fucntion، حدد جميع الأزرار وانقر مرتين على الحدث OnClick واكتب ما يلي:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := (Sender as TButton).Caption;
end; 


ملاحظة: في الجدوال (Table) والاستعلامات (Query) نستخدم TDataSet، فمثلا لفتحها جميعا في OnCreate نكتب:

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
for i := 0 to Application.ComponentCount-1 do
    if (Components[i] is TDataSet) then
      (Components[i] as TDataSet).Open;
end; 


حيث ComponentCount تعني عدد المكونات في التطبيق.
و [Components[i تعني المكون رقم i في التطبيق.
بالتوفيق.