窗体加载完毕后才显示控件，如何让他实时显示

Question

程序是一个气球框，类似qq的通知消息。
触发事件后调用代码
procedure TwinMain.sSpeedButton4Click(Sender: TObject);
//tips调出模块
begin
  winTips.show;
  winTips.Top := Screen.WorkAreaHeight;
  winTips.Height := 0;
  while winTips.Top > Screen.WorkAreaHeight - 80 do begin
    winTips.Top := winTips.Top - 1; winTips.Height := winTips.Height + 1;
    winTips.Left := Screen.WorkAreaWidth - winTips.Width - 1;
  end;
  winTips.show;
end;
wintips上的button控件总是在窗体静止后才加载。如何解决，让他随着窗体的上升跟着显示？？

Answer 1

在while循环里面加一句 application.ProcessMessages;