Das Eleganteste hat Kroko1999 schon gesagt ... einfach TLabel(Sender).Tag nutzen
Delphi-Quellcode:
Case TLabel(Sender).Tag of
0{Übersicht}: Begin
...
End;
1{Kunden}: Begin
...
End;
2{Einstellungen}: Begin
...
End;
3{Impressum}: Begin
...
End;
...
End;
Dazu muß natürlich noch den TAG's der Labels der entsprechende Wert zugewiesen werden
Ein Pointer sollte ja auch einen ordinalen Typ darstellen, demnach müßte es doch auch möglich sein diese zu vergleichen?
Delphi-Quellcode:
Case TLabel(Sender) of
Label1{Übersicht}: Begin
...
End;
Label2{Kunden}: Begin
...
End;
...
End;
Case TLabel(Sender) of
UebersichtLabel: Begin
...
End;
KundenLabel: Begin
...
End;
...
End;
//halt die definierten Namen der Labels