Как сделать так,чтобы при наведении курсора на Label
текст <U>подчёркивался</U> ?

Здравствуйте, tormentor, Вы писали:

T>Как сделать так,чтобы при наведении курсора на Label
T>текст <U>подчёркивался</U> ?

Меняй его Font

Здравствуйте, tormentor, Вы писали:

И что именно в этой задаче никак не удается воплотить?

Здравствуйте, tormentor, Вы писали:

>>Меняй его Font

А как менять-то?
В процедуре Label'a OnMouseMove >> Label1.font.style:=??????

Здравствуйте, tormentor, Вы писали:

T>Здравствуйте, tormentor, Вы писали:

>>>Меняй его Font

T>А как менять-то?
T>В процедуре Label'a OnMouseMove >> Label1.font.style:=??????

Сделай так:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Style := Label1.Font.Style + [fsUnderline];
end;

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

Здравствуйте, tormentor, Вы писали:

T>Здравствуйте, tormentor, Вы писали:

>>>Меняй его Font

T>А как менять-то?
T>В процедуре Label'a OnMouseMove >> Label1.font.style:=??????

при OnMouseEnter мышка над лейблом
при OnMouseLeave мышка вышла за пределы

Здравствуйте, tormentor, Вы писали:

T>Здравствуйте, tormentor, Вы писали:

>>>Меняй его Font

T>А как менять-то?
T>В процедуре Label'a OnMouseMove >> Label1.font.style:=??????
Ещё наверное тогда и курсор надо менять,если это типа гиперссылка.

Здравствуйте, linker, Вы писали:

T>>А как менять-то?
T>>В процедуре Label'a OnMouseMove >> Label1.font.style:=??????
L>Ещё наверное тогда и курсор надо менять,если это типа гиперссылка.

Т-с-с. Тихо, а то ещё одна тема появится!