var TB:TToolButton;
...    if FindComponent('B' Inttostr(I)) <> nil then begin
  TB := TToolButton(FindComponent('B' Inttostr(I)));
  ID:=TB.Caption;
  if (Sel=ID) and Assigned(TB.OnClick) then
    TB.OnClick(TB);
...  

引言: 若Button是在不同的視窗中我可以去呼叫嗎 ex: FormTime.TToolButton(FindComponent('ToolButton' Inttostr(I)));

for i := 0 to MdiChildCount-1 do
  if (MdiChildren[i].Name='FormTime') then ...

引言: 如果我的程式碼已經寫好但是FindComponent沒有元件可呼應這方式還可行嗎

如果已是 exe/dll 等, 只能透過 Win API 的方式, 如用 FindWindow 找出 Button 的 Window Handle, 然後用 SendMessage, 送 Mouse or KeyBoard Message 給它. [quote] ------------------------ Mickey大哥你好: 我想我的敘述不是很清楚所以你可能造成你的誤會 我做法是先將OnClick編輯好<----我想這不是正確的做法所以 然後再讓產生的選單按下執行該段程式 所以procedure XXXClick(Sender: TObject);已經存在 而我不懂得如何讓XXX的部分成為變數再去執行那一段程式 有勞你費時解決我的疑惑

引言: 抱歉我看了例子但是我還是作不出來 以下是我的程式碼請幫我看看 謝謝

var IniFile:TIniFile;
    ID,Sel,Fot,BB:String;
    I,F:Integer;
    m:TMyPorcdure;
    p:Pointer;
begin
    Sel:=TreeEdit.Selected.Text;
    IniFile:=TIniFile.create('.\Databass\System.ini');
    Fot:=EditID.Hint;
    if Sel=IniFile.ReadString(Fot,'Button' Inttostr(I),'') then
    begin
    for F := 0 to MdiChildCount-1 do
     if (MdiChildren[F].Name=Fot) then
      begin
        for I:=0 to 9 do
         begin
           BB:='_B80';<------此處可否改為變數FORM
           if ID=BB then
           p:=MethodAddress(ID);
           if p<>nil then
           begin
           TMethod(m).Code := p;
           TMethod(m).Data := Self;
           m(Sender);
           end
      else raise Exception.CreateFmt('Procedure %ID not exists',[ID]);
        end;
      end;
    end;
    IniFile.Free;