例如我現在有五個Button Button1 , Button2, Button3, Button4, Button5 當這五個Button執行onClick時, 都會這樣做：ShowMessage('abc'); 一般就要每個Button都要建立一個Onclick的procedure ,那麼不就有5個onClick的Procedure , 這樣做好麻煩, 可不可以不用這麼多procedure, ~~有其他方法嗎？

1.在設計畫面時你先點好一個Button的事件並寫Code，在其他Button的OnClick事件就可以下拉那一個事件了啊。    2.或者純寫Code

procedure TForm1.MyOnClick(Sender:TObject);
begin
  //do something
end;    Button1.OnClick:=MyOnClick;
Button2.OnClick:=MyOnClick;
Button3.OnClick:=MyOnClick;
Button4.OnClick:=MyOnClick;

您好﹗    可以使用事件共用﹐步驟如下﹕ 一﹒在Button1的OnClick事件中鍵入如下程式碼

begin
  ShowMessage('abc');
end;

二﹒點選Button2元件﹐點擊其OnClick事件中下拉箭頭﹐里面會顯示"Button1Click'﹐點選此事件即可﹒ 三﹒相同步驟二﹐在其它的Button元件的OnClick事件中都點選Button1Click即可﹒ 備注﹕取消事件共用的方法如下﹕ 點選某個設定共用事件的Button元件﹐然后將其共用事件名稱刪除即可 注意﹕不可刪除其事件內的程式碼﹐只刪除事件名稱即可﹒ 另一種程式碼共用的步驟﹕ 一﹒在Button1的OnClick事件中鍵入如下程式碼

begin
  ShowMessage('abc');
end;

二﹒在其它所有的Button的OnClick事件中鍵入﹕

begin
  Button1Click(Nil);
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟