Besitzt eine Komponente eine bestimmte Eigenschaft???

[samson]

Hallo Zusammen,

was haltet ihr denn von folgendem Ansatz:

1. neue Klasse erstellen

Delphi-Quellcode:

type
  TMyControl = class (TControl)
    public
      property PopupMenu;
  end;

2. Function zum überprüfen erstellen

Delphi-Quellcode:

function hasPopup(Sender :TObject) :boolean;
begin
  if Sender is TControl then
    result := assigned((Sender as TMyControl).PopupMenu);
end;

Probier mal aus.

Gruß


Frank