Link in Delphi einbauen!

[Daniel B]

Delphi-Quellcode:

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

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

Grüsse, Daniel