Thema: Delphi TPanel als Sender Casten

Einzelnen Beitrag anzeigen

jziersch

Registriert seit: 9. Okt 2003
Ort: München
251 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: TPanel als Sender Casten

  Alt 24. Jan 2018, 08:18
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.

Geändert von jziersch (24. Jan 2018 um 08:21 Uhr)
  Mit Zitat antworten Zitat