mouseover auch in delphi bei labels?

[aerotech]

axo, habs raus...

Delphi-Quellcode:

procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
Label5.Font.Color := clred;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
   Label5.Font.Color:= clblack;
end;