Всплывающая форма

[Shouldercannon]

Доброго времени суток!
Есть пример всплывающей формы. В нём применяется Sleep, что соответственно приводит к подвисанию формы. Решил всё это сделать в потоке. Всё работает, но стоило подключить возможность остановки потока, как началось веселье. При последующих вызовах потока форма не желает отображаться.

...
type
  // Поток для Popup
  TPopup_Thread = class(TThread)
  private
    { Private declarations }
    i, x, y, iAction: Integer;
    Form: TForm;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;
...
procedure TFormPopup.FormCreate(Sender: TObject);
begin
  // Делаем форму поверх всех окон
  SetWindowPos(Self.Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  SetWindowLong(Self.Handle, GWL_HWNDPARENT, GetDesktopWindow);
end; 

procedure TFormPopup.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Popup_Thread.Terminate;
  Self.Close;
end;

procedure TFormPopup.ProcShowPopup;
begin
  Popup_Thread := TPopup_Thread.Create(True);
  Popup_Thread.Form := Self;
  Popup_Thread.FreeOnTerminate := True;
  Popup_Thread.Start;
end;

procedure TPopup_Thread.Execute;
var
  i2: Integer;
begin
  // Присваиваем переменной X значение, равное вертикальному разрешению экрана
  x := Screen.Width;
  // Тут немного сложнее…WorkAreaHeight выводит не горизонтальное разрешение экрана, а горизонтальное разрешение рабочей области, то есть без панели задач
  y := Screen.WorkAreaHeight;

  iAction := 0;
  Synchronize(SyncProc);

  // Запускаем цикл, который за каждый шаг приподнимает форму на один пиксель
  for i2 := y downto y - Form.Height do
  begin
    if Self.Terminated then Break;

    i := i2;
    iAction := 1;
    Synchronize(SyncProc);
    Sleep(10); // Спим… Изменяя это значение можно менять скорость выезда окна (чем меньше тем быстрее)
  end;

  iAction := 2;
  Synchronize(SyncProc);

  Terminate;
end;

procedure TPopup_Thread.SyncProc;
begin
  case iAction of
  0: begin
    // Присваеваем свойству Top значение вертикали экрана, тем самым опускаем форму в самый низ экрана
    Form.Top := Screen.Height;
    // Горизонтальное положение формы := Горизонтальное разрешение экрана минус ширина формы. Располагаем форму в правом углу экрана
    Form.Left := x - Form.Width;
    // Устанавливаем прозрачность формы на 100 из 255 (не забываем установить в свойствах формы AlphaBlend := True)
    Form.AlphaBlendValue := 100;
  end;

  1: begin
    Form.Top := i; // Присваиваем вертикали значение i
    Form.FormStyle := fsStayOnTop; // Делаем форму поверх всех окон
  end;

  2: begin
    Form.FormStyle := fsStayOnTop;
    Form.AlphaBlendValue := 255; // Убираем прозрачность
  end;

  end;
end;

[Аватар]

Close зачем в FormMouseUp?
Terminate в Execute какая-то тайная фишка?
И зачем вообще поток? Все просто таймером делается

[lomastr_]

последующих вызовах потока

это как? убив поток его опять создавать надо

[min@y™]

идея хорошая, реализация – ацтой.
полностью развяжи поток и форму, можно даже synchronize() выкинуть, передавай команды туды-сюды через sendmessage() и/или postmessage().

[beegl]

вот готовый TKMAlert v.1.0