請問: 設計兩個form-A,B(A有一個button..B有多個button),procedure 寫在A unit內 由B 呼叫A的procedure, 希望B button 的caption會變成'yes', 不是A button 的caption會變成'yes',請問要如何更改?? 程式碼: procedure Test; var i:integer; begin for i:=0 to ComponentCounts-1 do begin if (Components[i] is TButton) then TButton(Components[i]).Caption:='Yes'; end; end; 謝謝

試試:

uses UnitB;
 
procedure Test;
var
 i: integer;
begin
  for i := 0 to Form2.ComponentCounts-1 do
  begin
    if (Form2.Components[i] is TButton) then
       TButton(Form2.Components[i]).Caption := 'Yes';
  end;
end;

-- He just never quits.