Здравствуйте.
Подскажите как у кнопки SpeedButton со свойством Flat:=true отобразить рамку (которая появляется при наведении на кнопку курсора мыши) когда курсор мыши, например, находитсья над какой-то Label?
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
25-05-2008 11:00
Бел Амор, спасибо за просветление! Я как-то об этом не подумал...
Можно обрабатывать события Label OnMouseMove и OnMouseLeave.
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
SpeedButton1.Flat:=false;
end;
procedure Label1MouseLeave(Sender: TObject);
begin
SpeedButton1.Flat:=true;
end;
Правда, результат работы процедупы несколько отличается от оригинального пролета мышью по кнопке, но это лучше, чем ничего.
В ходе решения задачи стокнулся с одной проблемой: почему у TSpeedButton нет свойства Handle?
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
