Показать сообщение отдельно
  #1  
Старый 18.09.2011, 04:12
feJIex feJIex вне форума
Прохожий
 
Регистрация: 17.09.2011
Сообщения: 6
Репутация: 10
Радость ДВигающиеся картинка

Всем привет.

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

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

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

end.

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

работаю в Delphi 7
Ответить с цитированием