請問如何讓一個form能夠設定延遲幾秒然後跳到顯示另一個form Delphi有這個功能嗎?? 如果有的話，該如何做呢?謝謝~~

為什麼要延遲幾秒呢?? 如果只是在等待運算時間 可以先做一個等待的 From 運算完在開您要的 From

設有表單Form1與Form2。表單一停留1分鐘後顯示表單二。按表單二的返回鍵返回表單一。實現方法如下：Form1下添加計時器（TTimer，在VCL的system下），將TTimer的interval設定為60000（因為預設值1000為一秒）。Timer的Timer事件中加入：

procedure TForm1.Timer1Timer(Sender: TObject);?關鍵程式
var frm2:TForm2 ;
begin
  frm2:=TForm2.Create(frm2);
  frm2.ShowModal;
end;

Form2中加入按鍵，Caption為“Back to Form1”.Click代碼為：

procedure TForm2.Button1Click(Sender: TObject);
begin
  self.close;
end;

各位前輩，不好意思，打攪一下，插個花: 有兩個Form: Form1,Form2，我們單擊Form1上的Button1就延遲3秒然後顯示Form2.(注意哦，要在Project--->Options--->Forms中將Form2由Auto-create forms移動到Available forms,然後在File--->Use Unit...中加入Unit2)

...
uses Unit2
...    procedure TForm1.Button1Click(Sender: TObject);         
begin
  Sleep(3000);
  Form2 := TForm2.Create(Application);
  Form2.ShowModal;
  Form2.Free;
end;

Form2和其他Form一樣，隨意使用 ================================= <>人生在勤，不索何獲 <>業精於勤荒於嬉，行成於思毀於隨 <>臨淵羡魚不如退而結網

------
人生在勤，不索何获？

請問那有沒有不需要在form1建立button 就是讓form1延遲幾秒 然後直接跳到form2 有這個功能嗎??謝謝~