Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
ВнизКак сделать приподнимающуюся кнопку при наведении на нее мышой Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c