Hallo,
"Casten" bedeutet, dass Du dem Compiler sagst, eine Referenz auf ein Objekt (also "Sender : TObject") deutet auf eine Instanz eine bestimmter Klasse.
Delphi kennt zwei Möglichkeiten zu casten:
das low-level casten
TPanel(Sender).Text
oder das high level casten (Sender as TPanel). Text.
Letzteres prüft zunächst, ob "Sender" überhaupt den genannten Typ ist oder diesen als Vorfahr hat. Wenn nicht, wird eine
Exception ausgelöst. Falls Du "TPanel(Sender)" verwendest und Sender ist kein TPanel (und stammt nicht davon ab) gibt es eine böse Schutzverletzung.
Du kast auch den "is" Operator verwenden um dies selbst zu prüfen:
if Sender is TPanel then
x := TPanel(Sender).Text
So mache ich es normalerweise.
Perfekt, endlich funktionierts! Gleich mal 60 Zeilen Code gespart
Danke für die verständnisvolle Erklärung.