TPanel als Sender Casten

[jziersch]

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.