Hallo und danke erst einmal für die Aufnahme in Eurem Forum.
Ich lese hier schon eine ganze Weile mit und habe mir auch schon einige nützliche Tipps ergattern können. Nun habe ich aktuell folgendes Problem.
Ich habe auf einer Form mithilfe von labels, panels und buttons eine Art Landkarte erstellt, auf der ca 150 labels verteilt liegen, denen ich später durch ein click-Event eine Funktion zuordnen möchte. Buttons gehen hier nicht da sie nicht die Eigenschaft Color haben.
Um dem Anwender zu zeigen auf welchem label er sich gerade befindet, weise ich dem label mit MouseEnter und MouseLeave verschiedene Eigenschaften zu. So sieht das im Moment für das Label btn100 aus.
Delphi-Quellcode:
procedure TfmHVMainForm.btn100MouseEnter(Sender: TObject);
begin
TPanel(Sender).Color := clyellow;
TPanel(Sender).Font.Color := clWindowText;
end;
procedure TfmHVMainForm.btn100MouseLeave(Sender: TObject);
begin
TPanel(Sender).Color := clgreen;
TPanel(Sender).Font.Color := clHighlightText;
end;
Meine Frage: Muss ich jetzt wirklich für jedes einzelne Label diese Events erzeugen oder geht das auch irgendwie kompakter?
Vielen Dank schonmal im vorraus