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

← →
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), который можно использовать и по прямому назначению.

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

Могу предложить еще одно кривое решение. Всем компонентам на форме (и самой форме) на событие OnMouseMove назначить
процедуру MyMove:
procedure TForm1.MyMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Sender<>YourButton then ... {мышка ушла с кнопки} else {мышка "пришла" : ) на кнопку} end;

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