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.
