"Выползание" формы при наведении мыши к краю экрана

[Neeter]

Есть форма, например св-во left = -231, надо чтобы при наведении мыши к краю экрана(где запрятана эта форма), она выходила из-за экрана(то-есть left := 0).
Я немогу узнать: когда мышь около края экрана.

[Скандербег]

Создать процедуру, связанную с событием от мыши OnMouseMove и в ней проверять выход формы за экран.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if (ClientToScreen(Point(X, Y)).X < 5) and (Left < 0) then
    Left := 0
end;

[DeKot]

Используйте функцию GetCursorPos(p), здесь p : TPoint. Вставте ее в обработчик таймера и получите координаты мыши x:= p.X; y:= p.Y. Дале по координатам мыши изменяйте позицию формы.

[Neeter]

to Скандерберг: на форму то мышь не наводится
to DeCot: знал этот способ, но не пробовал, надо будет попробовать
Я просто хотел узнать другие способы