ماهو sender ؟

السلام عليكم

لم اجد شرحا افضل مما هو في Delphi Help .

اقتباس

In an event handler, the Sender parameter indicates which component received the event and therefore called the handler.  

Sometimes it is useful to have several components share an event handler that behaves differently depending on which component calls it.

مثال :

procedure TForm1.Button2Click(Sender: TObject);

begin

if Sender = Button1 then

  form1.Caption := 'Button1'

else

  form1.Caption := 'Not Button1';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

button2.OnClick(sender);

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

 button2.OnClick(sender);

end;

(f)

CIONO1

الاخ تما انا آسف لتاخري بالرد... فجزاك الله خير على الافاده والرد,,مشكوووووور