Problem mit OnMouseEnter und OnMouseLeave-Prozeduren

[daredd]

Tag,
ich möchte gerne folgendes tun:

wenn sich die maus gerade auf einem TLabel befindet soll das label schwarz werden, so wie man das macht ist klar,

Delphi-Quellcode:

procedure TFormEtalon.MouseEnter(Sender: TObject);
begin
label.Font.Color:=clblack;
end;

procedure TFormEtalon.MouseLeave(Sender: TObject);
begin
label.Font.Color:=clgray;
end;

das klappt ja alles.
Aber jetz weiss ich nicht mehr weiter, ich möchte nun das unabhängig davon machen welchen Namen das Label hat,
die Sprich diese OnMouseEneter und Leave-Prozedur für jedes Label im programm benutzen.
Also wenn dann die Maus auf einem x-belibigem label drauf ist färbt sich das label schwarz.

Wie mach ich sowas, ich möchte nun mal nicht für jeden einzelnen Label eine MouseEnter-Leave-Prozedur schreiben(das sind ca. 200)????

[Jens Schumann]

Hallo,
jedem Label dasselbe OnMouseEnter u. OnMouseLeave Ereignis zuweisen
und dann folgenden Code verwenden.

Delphi-Quellcode:

procedure TFormEtalon.MouseEnter(Sender: TObject);
begin
Tlabel(Sender).Font.Color:=clblack;
end;

[daredd]

Zitat von Jens Schumann:

Hallo,
jedem Label dasselbe OnMouseEnter u. OnMouseLeave Ereignis zuweisen
und dann folgenden Code verwenden.

Delphi-Quellcode:

procedure TFormEtalon.MouseEnter(Sender: TObject);
begin
Tlabel(Sender).Font.Color:=clblack;
end;

Danke dir Hat wunderbar geklappt.