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)????