Objekte finden, egal ob TLMDEdit oder TRzEdit

[DelTurbo]

Hallo,
wie kann ich abfragen ob ein Objekt im grunde ein TEdit ist. Egal ob es in wirklichkeit ein TRzEdit ober ähnlich ist.

Zur zeit mache ich das so. Aber ich müsste die Schleife immer ändern, bzw. erweitern wenn ich nun ein z.b. TLMDEdit auf dem Panel habe.

Danke im voraus

Delphi-Quellcode:

function GetDataFromGBox(var FN:TStringList;var FV:TStringList;Box:TPanel):Integer;
var
  obj   :TControl;
  i     :Integer;
begin
    Result:=0;
    Assert(Assigned(Box));
    for i:=0 to Box.ControlCount-1 do begin
      obj:=Box.Controls[i];
      if ( obj is TRzEdit ) then begin
        if ( Pos('_',TRzEdit(obj).Name)<>0 ) then begin
          FN.Add(Copy(TRzEdit(obj).Name,1,Pos('_',TRzEdit(obj).Name)-1));
          FV.Add(TRzEdit(obj).Text);
          inc(Result);
        end;
      end;
    end;
end;

[DeddyH]

Wenn die Komponenten alle von TEdit abstammen, kannst Du doch daraufhin prüfen.

[DelTurbo]

Das habe ich versucht. Aber ich weiss leider nicht wie?!?

[baumina]

if obj.InheritsFrom(TEdit) then begin

[Sir Rufo]

if obj is TEdit oder evtl. besser if obj is TCustomEdit

Zitat von baumina:

if obj.InheritsFrom(TEdit) then begin

oder so

[DelTurbo]

Vielen Dank

[DelTurbo]

Ich habe noch eine Frage. Wie finde ich den entsprechenden Custom-Typ raus? Ich habe z.b. eine TRzGroupBox auf dem Panel, aber mit TCustomGroupBox finde ich das nicht.

Danke im voraus

[baumina]

Das Stichwort hierzu lautet TObject.ClassParent http://docwiki.embarcadero.com/Libra...ct.ClassParent

[DeddyH]

Oder wenn man die Sourcen hat: einfach nachschauen, wovon die Komponente abgeleitet ist.

[DelTurbo]

Erstmal danke für die antworten,
aber ich bekomme z.b. bei TRzGroupBox.ClassParent.ClassName den Namen TRzCustomGroupBox zurück. Irgendwie verwirrt mich das nun.

Ich habe rausgefunden das ich TRzGroupBox als TCustomPanel finden kann. Kann das stimmen?