以下這句程式碼有辦法說是建立一個程式序然後那一個FORM元件需要則去呼叫嗎 procedure TForm3.N3Click(Sender: TObject); BEGIN if application.findcomponent('form1')=nil then begin application.createform(tform1,form1); 例如建立一個程式序然後FORM1要去呼叫和FORM2和FORM3要去呼叫程式序都是呼叫同一個那麼就不用再去FORM1和FORM2和FORM3的開啟都去寫這個程式碼 那麼要怎麼做才做的出來

VAR WinCon:Thandle; BEGIN WinCon := FindWindow(NIL,'Form1'); if WinCon=0 then begin application.createform(tform1,form1); form1.Show; END; WinCon := FindWindow(NIL,'Form2'); if WinCon=0 then begin application.createform(tform2,form2); form2.Show; END; 。。。。。 END;

sun_chih_yen 你好:    這是你要的嗎 ? 若將 TDumClass 獨立成一個公用的 Unit, 也是頗恰當的做法, 這樣,只要 Unit1,Unit2... use 該 Unit, 就可直接 Assign.

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TDumClass=class
    procedure MyClick(Sender:TObject);
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  DumClass: TDumClass;    implementation    {$R *.dfm}
procedure TDumClass.MyClick(Sender:TObject);
begin
  showmessage('test');
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := DumClass.MyClick;
end;    end.