最小化后如果有提示框，怎样把提示框显示在屏幕前面？

Question

最小化后如果有提示框，怎样把提示框显示在屏幕前面？
比如我运行一个程序，最小化后。到了一定的时候有一个提示框，我怎么把这个提示框显示在屏幕上，让使用人知道？
下面达不到我要的效果：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  showmessage('呵呵');
end;

Answer 1

SetWindowPos(handle,hwnd_TopMost,0,0,0,0,swp_NoMove   or   swp_NoSize);
messagebox(handle, 'test', 'test', 0);

Answer 2

eathan  提得好，
高手们献招吧

Answer 3

linker0100  的方法可以，谢谢