Координаты мышки

[slim_10]

Народ, помогите кто чем может. Как сделать так, чтобы если координаты мышки совподали с координатами объекта TImage, то форма становилась красной(например)?

[Khanzo]

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
//курсор над Image
Form1.Color:=clred;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
//Курсор покинул Image
Form1.Color:=clwhite;
end;

[slim_10]

У меня нет такого события(((

[Selestis]

procedure TForm1.Image1MouseMove(Sender: TObject);
begin
Form1.Color:=clRed;
end;

procedure TForm1.Form1MouseMove(Sender: TObject);
begin
Form1.Color:=clWhite;
end;

[slim_10]

Форма невидимая

[Smitt&Wesson]

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

У меня нет такого события(((

И быть не может, но есть событие OnMouseMove.
У него в параметрах есть координаты. Сравнивай координаты с координатами Image. Ну, а дальше сам докумекаешь.

[Selestis]

Форма невидимая

Что значит невидимая?! Зачем тогда цвет менять?!

[DomiNick]

Windows.GetCursorPos() - АПИ-функция для получения координат мыши относительно левого верхнего угла экрана (ось Y направлена вниз).

[slim_10]

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

Зачем тогда цвет менять?!

Это я просто для примера привёл