Klassen-Typ als Parameter übergeben

[Ares]

Hallo!

Wie kann ich einen Typ als Parameterübergeben? Folgende funktioniert leider nicht:

Delphi-Quellcode:

    function GetControl(ControlName: String; ControlType: ClassType): TControl;
    var control: TControl;
    begin
      control := MyForm.FindChildControl(ControlName);
      if ((control<>nil) and (control is ControlType)) then
        result := control;
      else
        result := nil;
    end;

Die Funktion soll also überprüfen, ob es auf dem Form MyForm eine Komponente mit dem Namen "ControlType" und vom Type "ControlType" gibt und diese ggf. zurückliefern. Bei diesem Beispiel gibt der Compiler jedoch "'ClassType' ist kein gültiger Typbezeichner" aus.

Wie kann ich also einen Type als Parameter übergeben?

Besten Dank
Ares

[Dezipaitor]

Versuch mal statt ClassType "TClass" zu verwenden.

[sirius]

TObject

[Ares]

Danke, das funktioniert prima!

[Dezipaitor]

welches?

[jethark]

IMHO ist Dezipaitors Ansatz richtig.
Wobei hier natürlich ein TControlClass als Referenztyp genügen sollte,
denn schließlich liefert FindChildControl mindestens ein von TControl
abgeleitetes Objekt zurück.