摘要： class procedure TFWaitForm.Execute(const AMsg: string);begin01. with TFWaitForm.Create(Application) do begin02 aniMain.Active := true;03 PostMessage(Handle, WM_CLOSE, 0, 0);04 Msg := AMsg;0... 阅读全文