Как украсить метку ? - Форум - Библиотека программиста

admin

Дата: 27.05.2009, 05:49

Сообщение №:1

Группа: Администрация

Регистрация: 20.11.2008
Пользователь №: 1
Сообщений: 6
Пол: Мужчина
Спасибо сказали: 5 раз(а)

Предупреждений: 0
---------------------------

Как сделать чтобы при наведении на Label1 он становился подчеркнутым, а при перемещении курсора на другой участок формы - принимал обычный вид?

Warning: in_array() expects parameter 2 to be array, null given in /var/www/coder/data/www/coders-library.ru/modules/forums/function/forum_topic.php on line 235

EverD

Дата: 28.05.2009, 15:47

Сообщение №:2

Группа: Новичок

Регистрация: 28.05.2009
Пользователь №: 81
Сообщений: 3
Пол: Нет информации
Спасибо сказали: 0 раз(а)

Предупреждений: 0
---------------------------

Для этого необходимо обработать два события: курсор наводится на Label1 и курсор уходит с Label1.

Курсор наводится.

Код

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label1.Font.Style:=Label1.Font.Style+[fsUnderline];
end;

Курсор уходит.

Код

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style-[fsUnderLine];
end;

Сообщение отредактировалEverD - 28.05.2009, 15:48

Warning: in_array() expects parameter 2 to be array, null given in /var/www/coder/data/www/coders-library.ru/modules/forums/function/forum_topic.php on line 235

Форум - Программирование под Windows - Delphi - Как украсить метку ?