請教一下 當我在Form裡面要開啟一個MDI Child 型態的Form 名稱叫做DecideForm pas檔案叫做uDecideForm 如果我希望 這個MDI Child 型態的Form 在啟動之前 先執行另外一個Form 不知道可行否?! 我寫了一段程式如下 procedure TDecideForm.FormActivate(Sender: TObject); var i:integer; begin try formshow2.show; formshow2.Update; for i:=0 to 6000000 do begin formshow2.gauge1.progress:=i; end; finally formshow2.Close; end; end; 這個formshow2也是一個MDI Child 型態的Form 這個程式 在編譯的時候 沒有問題 可是 run的時候 跑不出這個Form 請教一下 我的程式 哪裡寫錯了呢 謝謝

1.將 formshow2之FormStyle改為Normal, Visible改為False 2. 將show formshow2之程式移至formshow如下

procedure TDecideForm.FormShow(Sender: TObject);
var i:integer;
begin
  with Tformshow2.create(application.mainform) do begin
    show;
    for i:=0 to 60000 do  
      Gauge1.progress:=i;
    Close;
  end;
end;