смена позиции формы при наведении мышью

[harimambura]

собственно незнаю, как это организовать. мне надо, чтобы если мышь навести на краешек формы (поиция формы например по вертикали стоит 1) курсором форма меняла положение по вертикали, а если курсор выйдет за пределы формы, форма сменила позицию по вертикали обратно на 1. не нашёл подходящее событие...

[Stilet]

Погано искал...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure w(var m:tagMSG); message CM_MOUSEENTER;
    procedure q(var m:tagMSG); message CM_MOUSELEAVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.q(var m: tagMSG);
begin
   top:=-Height+5;
end;

procedure TForm1.w(var m: tagMSG);
begin
        Top:=0;
end;

end.

[harimambura]

уважаемый администратор, по вашему это код на C++?

кто нибудь может дать нормальный ответ, а не провёв 5 минут в гугле, кинуть какую-то хрень...

[harimambura]

.............up

[pacniwassano]

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

уважаемый администратор, по вашему это код на C++?

кто нибудь может дать нормальный ответ, а не провёв 5 минут в гугле, кинуть какую-то хрень...

проведи больше минут в гугле, прежде чем оскорблять людей

[harimambura]

тояесть я такой лох, что не посидев в гугле, сразу стал постить вопрос на форум, дабы избежать перенапряжения со своей стороны от поиска? ненадо умничать.

уточняю: ГУГЛИЛ, ИСКАЛ, НЕ НАШЁЛ!!! поэтому и спрашиваю!