[feJIex]

Всем привет.

я многому научился на вашем сайта,
Мне нужна помощь у меня есть картинка мне нужно чтобы при наведении на неё курсором она поднималась а при отведении от неё курсора она опускалась

я к событию изображаения OnMouseMove прописал

Код:

procedure TForm1.Image15MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
image15.Top:=image15.Top+5
end;

end.

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

работаю в Delphi 7

[Pyro]

проще найти компонент, который умеет события mouseenter mouseleave, или типа того

[Bargest]

Думаю, вот два самых простых пути:
1) Кладем TImage на TPanel, и обрабатываем MouseEnter и MouseLeave панельки.
2) Timage на форме. В MouseMove формы проверяем, когда входит мышь в пределы картинки (можно при помощи PtInRect или вручную), если вошла - то поднимаем картинку наверх, если вышла - опускаем вниз.

[dr. F.I.N.]

Цитируя NumLock-а LMSY