Ich hab probiert das mit OnMouseLeave zu machen:
Delphi-Quellcode:
procedure TForm1.undo_underline(Sender: TObject);
begin
if
Label1.Font.Style:=[fsUnderline]
then
Label1.Font.Style:=[fsNormal]
end;
Funktioniert aber leider noch nicht. Vielleicht kannst du das irgendwie so umstellen, dass es geht.
MfG Florian