procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  ShowMessage('Test');
end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SendMessage(GetActiveWindow, WM_CLOSE, 0, 0);
  Timer1.Enabled := False;
end;

引言: 請問，如何利用程式碼關掉 message呢？ 比如說： begin showmessage('資料存取中，請稍待'); (......一連串資料庫存取的程式碼.......); 執行到這裡，既然資料庫已經存取完畢，如何在這裡將之前show出來的message關閉？ end;

我有一個最直接的做法, 其實我現在都是這麼做
1.create 一個 new form(form2), 內建一個 label1, 然後在 form1 uses它
2.將 form2 設定為 showontop 模式
3.
  begin
   form2:= TForm2.Create(self);
   form2.label1.caption:= '資料存取中，請稍待';
   form2.show;
   (......一連串資料庫存取的程式碼.......);
   最後
   if form2 <> nil then form2.close;