Delphi中Sender對象的定義

Delphi 中Sender對象的定義！

1.Sender的定義：
每一個事件處理裡面至少都有一個Sender參數。比如：
procedure TForm1.Button1Click(Sender:TObject);
begin
...
end;

Sender的含義就是代表調用TForm1.Button1Click這個過程的控制項. 由於Sender是TObject,所以任何object都可以賦給Sender.
當你點擊BUTTON1時，會產生一個Button1Click事件，系統會把Button1傳遞給Button1Click過程坐為參數，也就是所說的Sender.

2.Sender的用法：

<1>.由於Sender代表了調用所在過程的控制項，那麼你就可以直接把它拿來當那個控制項用，不過如果要用屬性的話，最好寫成(Sender as 控制項名).控制項屬性：=... 例如:                               
procedure TForm1.Edit1Click(Sender: TObject);
begin
with Sender as TEdit do         //將sender作為TEdit類使用 ,as操作符是類型轉換。
begin
text:=’hello’;
end;
end;

<2>.如果在兩個事件中處理同樣的事情，那麼可以利用Sender來省去重寫同樣的過程。例如：

Procedure TForm1.Button1Click(Sender:TObject);
begin
do same sth.....;
if Sender=Button1 then
do sth....;
if Sender=Button2 then
do other sth....;
end;

procedure TForm1.Button2Click(Sender:TOBJect);
begin
Button1Click(Button2);
end;