Восстановление окна на середину экрана.

[Airou]

Суть в чем. Есть программа. Always on top.

После определенных действий она перемещается за левый край экрана, так что остается лишь небольшой край от нее.

Как сделать так чтобы при наведении курсора к левому краю экрана (или хотя бы при наведении курсора на видимый край программы) она восстанавливалась на середину. Интересует как узнать что курсор заведен на максимум к левому краю экрана или находится на форме программы (если кто подскажет оба вар-та буду благодарен).

[HellMercenariess]

 Form1.left:=1  Form1.top:=1

[Airou]

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

 Form1.left:=1  Form1.top:=1

КО?(и то не на центр восстановишь)
Меня интересует именно последнее предложение в моем посте.

[SERG1980]

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
 if form1.Left<0 then form1.Position:=poDesktopCenter;
end;

[Volt]

попробуйте так:

procedure TForm1.Timer1Timer(Sender: TObject);
var h:integer;
begin
if mouse.CursorPos.X> Monitor.Width-20 then
begin
h:=FindWindow(nil, 'Always on top'); //// здесь введите точное значение зоголовка окна например у блокнота это Безымянный - Блокнот
SetWindowPos(h, HWND_BOTTOM, 1, 1, 20, 20, swp_nosize);////здесь устанавливаем позицию
Application.ProcessMessages;
end;
end;

[Airou]

Все спасибо уже знаю как сделать.