"Label1.Font.Style:=not [fsbold]"

[1660]

Hallo,

habe folgendes Problem:

Wenn ich die Maus auf ein TLabel bewege soll es fett werden, wenn die Maus das TLabel wieder verlässt soll das Label wieder "normal" sein.

Hat jemand eine Idee ? Der erste klappt ja schon =) ...

Code: Alles auswählen

procedure TForm2.Label1MouseEnter(Sender: TObject);
begin
 
   Label1.Font.Style:=[fsbold];
end;
 
procedure TForm2.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Style:= "not" [fsbold];
end;

[Komoluna]

Versuchs mal mit

Code: Alles auswählen

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

[1660]

Super, klappt einwandfrei !!

Code: Alles auswählen

 
 
procedure TForm2.Label1MouseEnter(Sender: TObject);
begin
   Label1.Font.Style:=[fsbold];
end;
 
procedure TForm2.Label1MouseLeave(Sender: TObject);
begin
   Label1.Font.Style:=  [];
end;