Есть ли какое то свойство аналог hover в CSS для надписи dxLabel (действие при наведении без клика на область надписи)?
По сути при наведении на надпись хотелось бы менять цвет, нужно для надписей используемых вместо кнопок.


См. также: Энциклопедия DX | Форум на develop-soft | Песочница



dxLabel->Шрифт->Цвет (изменение при наведении курсора)
- Develop-Soft
- Сообщения: 1077
- Зарегистрирован: Вт мар 05, 2019 6:09 pm
- Благодарил (а): 40 раз
- Поблагодарили: 222 раза
- Контактная информация:
dxLabel->Шрифт->Цвет (изменение при наведении курсора)
Код: Выделить всё
procedure lbl_OnMouseEnter(Sender: TObject);
begin
with TdxLabel(Sender) do
begin
Font.Color:=clBlue;
Font.Style:=Font.Style+[fsUnderline];
end;
end;
procedure lbl_OnMouseLeave(Sender: TObject);
begin
with TdxLabel(Sender) do
begin
Font.Color:=clDefault;
Font.Style:=Font.Style-[fsUnderline];
end;
end;
procedure LabelAsLink(arr_lbl:array of TdxLabel);
var i:integer;
begin
for i:=0 to GetArrayLength(arr_lbl)-1 do
with arr_lbl[i] do
begin
Cursor:=crHandPoint;
OnMouseEnter := @lbl_OnMouseEnter;
OnMouseLeave := @lbl_OnMouseLeave;
end;
end;
procedure Form_Create;
begin
LabelAsLink([ dxLabel1, dxLabel2, dxLabel3 ]);
end;