常常在軟體中在MENU中有開新檔案的Click事件 也在工具列中有開新檔的Click事件 他分別來自不同觸發，但目的都是開檔的動作 所以程式碼都一樣 我以前都COPY一套至另一事件中 請問一下，可以將不同的觸發事件指定至同一個 程式（碼）執行邏輯上嗎？ 應該如何做呢？

1. 在 Object Inspector(物件檢視器) 的 Event 頁中 比方說要設定 Edit1 的 OnClick 可以在其左方下拉來指定 您可以寫一個新的, 也可以指定別的(只要下拉選單中有出現的就可以  2. 比方說有個 procedure 如下: 

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

那可以這麼設 Button2 的: Button2.OnClick := Button1Click; 3. 或者再寫一個 procedure 或 function 做同樣的事, 假設如下

procedure TForm1.CommProc;
begin
end;

然後在 Button1, Button2 的 OnClick 下都執行 CommProc 也可以

procedure TForm1.Button1Click(Sender: TObject);
begin
  CommProc;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  CommProc;
end;

發表人 - hagar 於 2002/05/31 18:01:34

呵呵！瞭解 只要對應在Even中的觸發事件中 有對應的事件可以指向 就可視為同一動作了