Interessantes Problem.
In Delphi XE6:
Delphi-Quellcode:
lBoolean := MyEdit1.ReadOnly //Result: true
lBoolean := TEdit(MyEdit1).ReadOnly //Result: false
lBoolean := (MyEdit1 as TEdit).ReadOnly //Result: false
So, wie es meiner Meinung nach auch sein sollte. Es gibt keinen "Softcast" wie im Lazarusforum jemand annahm.
In obigem Beispiel generiert XE6 übrigens erst gar keinen Code, der die Klasse von MyEdit1 prüft, weil die ja schon zur Compilezeit ersichtlich ist.
Man könnte den Test also noch so erweitern:
Delphi-Quellcode:
var Obj: TObject;
Obj := MyEdit1;
lBoolean := MyEdit1.ReadOnly //Result: true
lBoolean := TEdit(MyEdit1).ReadOnly //Result: false
lBoolean := (MyEdit1 as TEdit).ReadOnly //Result: false
lBoolean := (Obj as TEdit).ReadOnly //Result: false
lBoolean := (Obj as TMyEdit).ReadOnly //Result: true