andere Farbe, wenn Maus auf Label

[Hansa]

Ob das jetzt unter Versionen < D6 geht, weiß ich leider nicht :

Delphi-Quellcode:

procedure TfrmKey.lblMouseEnter(Sender: TObject);
begin
  with Sender as TLabel do begin
    Color := clSkyBlue;
    Font.Color := clNavy;
  end;
end;

procedure TfrmKey.lblMouseLeave(Sender: TObject);
begin
  with Sender as TLabel do begin
    Color := clInfoBk;
    Font.Color := clBlack;
  end;
end;

P.S.: oh je, in dem Code am Anfang wird Label1 usw. direkt angesprochen.