OnMouseLeave

← →
Timer (2002-07-08 11:44) [0]

подскажите пример процедуры OnMouseLeave.
Чтобы после ухода мышки с Image2, показалась Image1

← →
Skier © (2002-07-08 11:47) [1]

>Timer
Со свойством Visible не пытался играться ?

← →
Starkom (2002-07-08 11:52) [2]

в Form.OnMouseMove смотришь координаты мыши, суммируешь, вычитаешь всякие Top"ы Height"ы и проч, и получаешь - есть ли курсор над имагой или нет.

← →
Timer (2002-07-08 11:53) [3]

2Skier

А ты представь себе если картинок много.....какой код будет :))

ну так есть пример?

← →
Skier © (2002-07-08 11:57) [4]

>Timer
Давай подробней ! Что хочешь сделать ?

← →
Timer (2002-07-08 12:05) [5]

При наведении на Image1, свойство Visible (image1) меняется на false и показывается Image2 (visible:=True). А потом при уходе мышки с Image2, свойство visible (image2) меняется на faLSE, а Image1 - на true

Но т.к. у меня на форме множество картинок, то нужна процедура Image(x)OnMouseLeave

← →
Timer (2002-07-08 12:10) [6]

А конкретно, мне это вот зачем:
Представь, на форме множество картинок. У при наведении на каждую, нужно в событии OnMouseMove писать:
Image2.Visible:=True;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
и т.д.
Так что проще иметь процедуру OnMouseLeave

← →
Eugene Lachinov © (2002-07-08 12:11) [7]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1025891871&n=0

← →
Skier © (2002-07-08 12:13) [8]

>Timer
Если тебе нужно событие OnMouseLeave, то проще всего наверно, так : сделай свой компонент TYourImage,
в котором будет всё то же что и в обычном TImage + два
события OnMouseLeave и OnMouseEnter. И используй этот компонент
вместо TImage.

← →
Timer (2002-07-08 12:17) [9]

2Skier

:-))) Я компоненты не умею писать

← →
Skier © (2002-07-08 12:20) [10]

>Timer
Советую научится. Это очень полезно.
(Можно прочитать в любой книге по Delphi)
Ну а пока см, ссылку Eugene Lachinov-а, по-моему это то что
тебе нужно.

← →
Timer (2002-07-08 12:25) [11]

2Skier

Ага :))

А может знаешь какой-нить подобный компонент в инете для, чтобы в нём было OnMouseLeave???

← →
Skier © (2002-07-08 12:28) [12]

>Timer
Я могу тебе написать и
по почте выслать (если надо).

← →
Timer (2002-07-08 12:32) [13]

2Skier

Буду признателен :))
stas_savelnikov@ukr.net

>Timer
Выслал. Встречай.

← →
Timer (2002-07-08 12:52) [15]

2Skier

Big thanx!!!!

P.S. А под D6 идёт?

>Timer
Не то что идёт - бежит :)

← →
Timer (2002-07-08 12:58) [17]

2Skier

:))))
Ну тоды ещё раз биг-биг сенкс!!!!!!!!

OnMouseLeave Найти похожие ветки