Problem mit Prozedur

[Pseudemys Nelsoni]

hoi

ich möchte eine prozedur schreiben die folgendermaßen aussieht

Delphi-Quellcode:

procedure test(komponente: TComponent; ScreenH, ScreenW: integer);
begin

end;

jetzt wollte ich zwischen dem begin..end; ein "komponente.left" reinsetzen aber das geht nicht weil es kein "Left" gibt. Wie kann ich das vorher testen, das die komponente die sachen wie left,top etc hat?

btw: ich möchte sie nachher aufrufen in dem ich(das image nur als beispiel!) "test(image1, 100, 100)" also muss das image ja "left" haben oder nicht?

[Assarbad]

Eine Moeglk. ist:

Delphi-Quellcode:

with Komponente as TImage do
begin
end;

[Illuminator-23-5]

ich hab da auch so ein ähnliches problem.
nur bei mir weiß ich nicht, ob das 'ne groubBox oder eine listview ist
wie könnte man das da lösen?

[Assarbad]

Na genauso ... nur statt "as TImage" nimmste sowas wie "as TWinControl"

[Pseudemys Nelsoni]

danke

[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;

[neolithos]

Zitat von Assarbad:

Na genauso ... nur statt "as TImage" nimmste sowas wie "as TWinControl"

Ich würde TControl nehmen und vorher erstmal prüfen, ob es ein Nachfahre dieser Klasse ist.

TWinControl ist schon eine Spezialisierte Klasse!

Delphi-Quellcode:

if Komponente is TControl then
   with Komponente is TControl do

[Assarbad]

Sorry, ich programmiere (fast) nie mit VCL. Das Wissen stammt noch von vor 5 Jahren