Текущий архив: 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.059 c