Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Как сделать приподнимающуюся кнопку при наведении на нее мышой   Найти похожие ветки 

 
TGrigory ©   (2004-03-27 17:25) [0]

Сабж. Собстно положение такое. Есть TImage и надо не столько приподнять кнопку, сменив изображение при событии MouseMove, а опустить ее. Вот при каком событии не знаю. Как отследить "уход" мышки с кнопки? Не таймером же проверять GetCursorPos?


 
Mihey ©   (2004-03-27 17:36) [1]

Нет, не таймером.

http://www.delphikingdom.ru/stones/stone_31.htm
http://www.developing.ru/ubb/Forum18/HTML/000022.html

или переписать потомка, "открыв" обработку сообщений. См. компонент TezRgnBtn (http://www.torry.net/vcl/buttons/nsbuttons/ezrgnbtn.zip), который можно использовать и по прямому назначению.


 
Cardinal ©   (2004-03-27 17:52) [2]

>Не таймером же проверять GetCursorPos?

Могу предложить еще одно кривое решение. Всем компонентам на форме (и самой форме) на событие OnMouseMove назначить
процедуру MyMove:

procedure TForm1.MyMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
if Sender<>YourButton then ... {мышка ушла с кнопки}
else {мышка "пришла" : ) на кнопку}
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
14-1080217811
panov
2004-03-25 15:30
2004.04.18
Новый форум.


4-1076495701
}{enon
2004-02-11 13:35
2004.04.18
Как узнать стиль кнопки в другом приложении?


14-1080541526
noname
2004-03-29 10:25
2004.04.18
компиляция


3-1079687625
Denis_Visma
2004-03-19 12:13
2004.04.18
Вставка записей в Представление


7-1076588783
h0use
2004-02-12 15:26
2004.04.18
Определение типа ОС