我想做一個Form, 在form show 出來之後, 自動完成一些code(這些code 會改變form 中component 的外型, 用戶也需要看到這種變化的過程), 完成後, 自動 caFree 自已, 再把自己等於 Nil. 在OnCreate 和 OnShow 中運行這些code 好像不行, 所以我用了一個Timer, 在form.OnShow 中 enable 這個timer, timer 再實作那些code, 完了後timer 自己 disable 自己(即只實作一次), 再caFree 和 Nil 掉自已的Form. 不知大家有什麼好一點的方法, 我覺得我的方法太笨.

引言: 我想做一個Form, 在form show 出來之後, 自動完成一些code(這些code 會改變form 中component 的外型, 用戶也需要看到這種變化的過程), 完成後, 自動 caFree 自已, 再把自己等於 Nil. 在OnCreate 和 OnShow 中運行這些code 好像不行, 所以我用了一個Timer, 在form.OnShow 中 enable 這個timer, timer 再實作那些code, 完了後timer 自己 disable 自己(即只實作一次), 再caFree 和 Nil 掉自已的Form. 不知大家有什麼好一點的方法, 我覺得我的方法太笨.

有沒有原始程市

可以將此form之create 及Free交給上一層form 例如在Mainform上

procedure TForm1.Button1Click(Sender: TObject);
var f2:TForm2;
  i:integer;
begin
  f2:=TForm2.create(self);  //create該Form
  f2.show;   
  application.ProcessMessages;
  f2.close;                 //當f2執行完該執行之code, close it
  f2.Free;
end;

在該form中,以下create一button,並移動此button做為測試

procedure TForm2.FormActivate(Sender: TObject);
var i:integer;
  btn:TButton;
begin
  btn:=TButton.create(self);
  btn.parent:=self;
  btn.setbounds(0,0,50,50);
  for i:=0 to 100 do begin
    btn.left:=btn.left 2;
    btn.top:=btn.top 2;
    refresh;
    sleep(10);
  end;
end;

謝謝ccchen, 請問 Application.ProcessMessage 在這裡運用有什麼別的特別作用? Form.show 完後, 因為不是showModal 後跟的Form.close 和 Form := Nil 會不會馬上被執行?

已實驗過了, 很成功, 謝謝ccchen !!!

謝謝ccchen, 請問 Application.ProcessMessage 在這裡運用有什麼別的特別作用? Application.ProcessMessage主要是,暫時停止見前程式(i.e)緊接於後之form.close 和 Form := Nil 先去處理完messageQueue之內容.