Закрыть всплывающее окно - как?

[fezilk25]

Добрый день!
В моей программе есть необходимость использования всплывающих окошек (как в qip).
Нашел такой код (создание окна):

procedure TForm1.fShowHint(Text: String; frcolor:TColor);
var H:HWND;
    Rec:TRect;
    NeededTop:integer;
    HintForm:TForm;
    HintLabel:TLabel;
    aw:hwnd;
begin

  H := FindWindow('Shell_TrayWnd', nil);
  if h=0 then exit;

  GetWindowRect(h, Rec);

  HintForm:=TForm.Create(nil);
  with HintForm do
  begin

    Width:=245;
    Height:=100;

    Color:= frcolor;
    BorderStyle:=bsNone;
    //Создаём текст
    HintLabel:=TLabel.Create(nil);
    with HintLabel do
    begin
        Parent:=HintForm;
        WordWrap:=true;
        Caption:=' '+Trim(Text)+' ';
        Align:=alClient;
        Layout:=tlCenter;
        Alignment:=taCenter;
    end;

    AlphaBlend:=true;
    AlphaBlendValue:=220;

    aw:=GetActiveWindow;
    ShowWindow(handle,SW_SHOWNOACTIVATE);
    SetActiveWindow(aw);

    Left:=Screen.Width-Width;
    Top:=Screen.Height-20;

    //Выезжаем вверх
    NeededTop:=Rec.Top-Height;
    while Top>NeededTop do
    begin
      Top:=Top-2;
      Repaint;
      ida.Sleep(10);
      ida.Process;
    end;

    ida.Sleep(2000);

    //Выезжаем вниз
    NeededTop:=Screen.Width-20;
    while Top<NeededTop do
    begin
      Top:=Top+2;
      Repaint;
      ida.Sleep(10);
      ida.Process;
    end;
    HintLabel.Free;
    Free;
  end;

end;

Но теперь возникает необходимость "закрыть" окошко при нажатии на него.
Кстати, пока окошко не "уедет" окончательно - программа отказывается закрываться.
Пытался сделать закрытие окна с помощью HintForm.Free;
но не получилось..

Прошу вашей помощи.

[raxp]

Кстати, пока окошко не "уедет" окончательно - программа отказывается закрываться.

в двух циклах while поставьте проверку глобального флага закрытия и прерывайте их.

[fezilk25]

Можно чуть подробнее? Желательно, с примером

[Sanprof]

Сообщение от fezilk25

Можно чуть подробнее? Желательно, с примером

если ваш код выполняется в главном потоке, то тогда все понятно. Действительно нужно переменную, к примеру Fstop тогда как-то так

Fstop := false;
while (Top>NeededTop) or (not FStop)  do
begin
  ....
  Application.ProcessMessages;
end;

[mihali4]

Или попроще - добавим немного строк в исходный код:

...
if FMain.FStop then
begin
HintForm.Free;
exit;
end;
 //Выезжаем вверх
...

Ясно, что по событию закрытия главной формы устанавливается флажок FStop=True.