Verdeckte Eigenschaften verwenden

[himitsu]

Delphi-Quellcode:

var 
  M: TMyClass;
  B: TSomeSystemClass;

M := TMyClass.Create;
M.SomeVal := ...; // TMyClass.SetSomeVal
TSomeSystemClass(M).SomeVal := ...; // TSomeSystemClass.SetSomeVal
S := M;
S.SomeVal := ...; // TSomeSystemClass.SetSomeVal

S := TMyClass.Create;
S.SomeVal := ...; // TSomeSystemClass.SetSomeVal
TMyClass(S).SomeVal := ...; // TMyClass.SetSomeVal