Delphi-Sender對象的定義

　　sender就是調用者，在delphi中你可以將一個按鈕的事件程序賦給多個按鈕，也就是說一個過程可以響應多個控制項的單擊過程。你可以根據sender的不同執行不同的操作。

Sender是一個TObject類型的參數，它告訴Delphi哪個控制項接收這個事件並調用相應的處理過程。你可以編寫一個單一的事件處理控制代碼，通過Sender參數和IF…THEN…語句或者CASE語句配合，來處理多個構件。發生事件的構件或控制項的值已經賦給了Sender參數，該參數的用途之一就在於：可以使用保留字IS來測試Sender，以便找到調用這個事件處理控制代碼的構件或控制項的類型。例如，將表單中編輯框和標籤的Click事件的處理控制代碼都指向表單的xxx過程，編輯框和標籤對Click事件有不同的反應：
  procedure TForm1xxx(Sender:TObject);
  begin
  if(sender is Tedit) then
  showmessage(′this is a editbox′);
  if(sender is Tlabel) then
  showmessage(′this is a label′);
  end;
  Sender參數的第二個用途是結合AS操作符進行類型轉換，將若干個派生於某一父類的子類強制轉換成該父類。例如表單中有一個TEdit類控制項和一個TMemo控制項，它們實際上都派生於TcustomEdit類，如果你要為二者的某一事件提供同樣處理，可以將二者事件控制代碼都指向自訂的過程 yyy:
  Procedure TForm1.yyy(Sender:TObject);
  begin
  (sender as TcustomEdit).text:=′This is some demo text′;
  end;
  在過程中，AS操作符將TEdit類和TMemo類均強制轉換成TcustomEdit類，再對TcustomEdit類的屬性賦值。注意這種轉換必須符合Delphi中類的層次關係。
  使用Sender參數可以通過單一過程段處理多類控制項，真正體現了Delphi物件導向的重用性。