Страница 1 из 1

dxLabel->Шрифт->Цвет (изменение при наведении курсора)

Добавлено: Пн июл 01, 2019 4:42 pm
Иван
Есть ли какое то свойство аналог hover в CSS для надписи dxLabel (действие при наведении без клика на область надписи)?

По сути при наведении на надпись хотелось бы менять цвет, нужно для надписей используемых вместо кнопок.

dxLabel->Шрифт->Цвет (изменение при наведении курсора)

Добавлено: Пн июл 01, 2019 7:05 pm
Develop-Soft

Код: Выделить всё

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;
dxdb_icon Пример