一个比较难办的有关问题，请高手解答，参与就有鼓励分

一个比较难办的问题，请高手解答，参与就有鼓励分
我有一个定时器，每到一个条件满足时就弹出一个提示框，现在我想怎么才能做到如果已经有一个提示框了就不再出现另一个相同的提示啊？不然时间一长屏幕上会出来一大串窗口，谢谢大家，可能这个问题比较偏，集思广益，参与就有分，谢谢！

------解决方案--------------------
//创建一个form2

uses unit2;

private
FForm2:TForm2;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Not Assigned( FForm2 ) then
begin
FForm2:= TForm2.Create( Owner );
FForm2.ShowModal;
FForm2.Destroy;
FForm2:=nil;
end;
end;
------解决方案--------------------
HWND FindWindowEx(
HWND hwndParent,
HWND hwndChildAfter,
LPCTSTR lpszClass,
LPCTSTR lpszWindow
);

FindWindowEx查找messagebox标题的窗口,找到了就不显示了

------解决方案--------------------
加一个全局的变量去管理啊，如果窗口跳出时是一个值，如果窗口关闭了则设定为另一个值
------解决方案--------------------
var
h:THandle;
begin
h:=findwindow(nil, '提示 ');
if h = 0 then
application.MessageBox( '？？？？ ', '提示 ',0 );

end;
------解决方案--------------------
弹出时检测是否为true，true则不弹，false则弹并置为true，点了ok置false。