sorry für den topic namen, aber mir fällt dafür keine bezeichnung ein. Also es geht darum das ich jedem label eine andere farbe geben möchte sobald die maus drauf ist, aber irgendwie geht das:
Code:
procedure mEnterLabel(Sender: TLabel);
begin
with sender do
begin
Color := $00E1AE7A;
Font.Color := $00603A0C;
end;
end;
procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
mEnterLabel(self);
end;
der aufruf "mEnterLabel(self);" ist falsch, mit "mEnterLabel(self.label5);" gehts aber.... self ist doch aber schon label5, da das ereignis auf dem label5 stattfindet, oder nicht? also wozu noch .label5 hinter self? dann reicht ja auch "label5" allein
oder mach ich ganz was falscH?