Was ist hieran falsch?

**Pseudemys Nelsoni**

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:

markieren

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?

Was ist hieran falsch?

Was ist hieran falsch?

Forumregeln