for i := 1 to 12 do begin     butt := FindComponent('AddButton' + IntToStr(i)) as TButton;     例:當user按addbutton(1-12)其中一個時,才作下列字串相加,其它button        免+     if ......怎麼判斷     Addedit1.Text:=Trim(Addedit1.Text)+Trim(butt.Caption);     end;

這個問題可以這樣解.. 將這 12 個 button 的 onclick event 都用同一個 procedure 即可 你可以先寫好 addbutton1 的 onclick event 為 addbutton1Click(Sender: TObject); 如下:

procedure TForm1.addbutton1Click(Sender: TObject);
begin  
  //其實不用判斷, sender 就是觸發的 button 了, 所以可以直接用
  Addedit1.Text:=Trim(Addedit1.Text) Trim(TButton(Sender).Caption);
end;

然後 1)在 addbutton2... 12 的 onclick event 都指向這個 procedure 就可以了. (design time的做法) 2)若是你想用 findcomponent 功能的話, 其實就在 form 的 activate 時, 寫入 (run time 的做法)

procedure TForm1.FormActivate(Sender: TObject);
var 
  i: integer;
begin
  for i:= 2 to 12 do 
  begin
    TButton(findcomponent('addbutton' inttostr(i))).OnClick := Form1.addbutton1Click;
  end;
end;

如此一來就會在 form activate 的時候, 將 addbutton2..12 的 onclick event 的行為都設定和 addbutton1 一樣.

寫在button1.Click事件,然後所有的buttonClick都指向該事件,你也可以只有將Button1跟button2指向該事件.. procedure TForm1.Button1Click(Sender: TObject); begin if (TButton(Sender)=button1) or (TButton(Sender)=button2)then Addedit1.Text:=Trim(Addedit1.Text) Trim(butt.Caption); end; TRY TRY SEE 發表人 - chih 於 2003/04/17 08:28:49

引言: Addedit1.Text:=Trim(Addedit1.Text) Trim(TButton(Sender).Caption); 可以謝謝大家 [code]

發表人 - nick899 於 2003/04/17 16:43:55