Problem mit Prozedur

[overmoon]

Delphi-Quellcode:

     if (MyTest is TButton) then ...
     // Überprüfung, ob es sich um ein Objekt vom Typ TButton handelt

     if (MyTest = Buttin1) then ...
     // Überprüfung, ob es sich um ein bestimmtes Objekt handelt

     TButton(MyTest).Left := ...
     // Wenn man weiß, dass MyTest vom Typ TButton ist,
     // aber als TObject deklariert wurde, dann kann man so den Properties
     // Werte zuweisen

     with TButton(MyTest) do
     begin
          // Oder hier den Properties Werte zuweisen
     end;

     with MyTest as TButton do
     begin
          // oder so
     end;