Последняя версия DataExpress 3 beta от 1 сентября 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

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

Все о том как сделать что-то с помощью скриптов.
Аватара пользователя
Иван
Интересующийся
Сообщения: 68
Зарегистрирован: Сб дек 22, 2018 2:16 pm
Благодарил (а): 4 раза
Поблагодарили: 2 раза

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

Сообщение Иван » Пн июл 01, 2019 4:42 pm

Есть ли какое то свойство аналог hover в CSS для надписи dxLabel (действие при наведении без клика на область надписи)?

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

Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

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

Сообщение Develop-Soft » Пн июл 01, 2019 7:05 pm

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

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