Последняя версия DataExpress 3 beta от 15 сентября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<

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

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

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

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

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

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

Аватара пользователя
Develop-Soft
Сообщения: 1733
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 122 раза
Поблагодарили: 470 раз
Контактная информация:

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

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

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

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


Вернуться в «Общие вопросы.»