Delphi Anzahl Formulare / Dynamisch Klassen ansprechen?

Thema durchsuchen

Ansicht

Themen-Optionen

Anzahl Formulare / Dynamisch Klassen ansprechen?

Ein Thema von miLeRiAm · begonnen am 31. Okt 2008 · letzter Beitrag vom 31. Okt 2008

Vorheriger Beitrag

Nächster Beitrag

angos

Registriert seit: 26. Mai 2004
Ort: Rheine
553 Beiträge

Delphi 12 Athens

#11

Re: Anzahl Formulare in der Applikation

31. Okt 2008, 11:11

Hi,

um heruaszufinden ob ein Objekt eine Property hat, habe ich hier im Forum mal was gefunden gehabt:

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  TypInfo;

[...]

function HasProperty(AClass : TObject; APropertyName : String) : Boolean;

var

  MyPropInfo: PPropInfo;

begin

  MyPropInfo := GetPropInfo(AClass.ClassInfo, APropertyName);

  Result := MyPropInfo <> NIL;

end;

procedure TForm1.btnClick(Sender: TObject);

begin

  if HasProperty(MeinObjekt, 'Caption') then

  begin

  end;

end;