problem mit protected PopUpMenu-Eigenschaft

[Marcus Bilan]

Hallo !<p>
Ich möchte in einer Routine überprüfen, ob ein beliebiges WinControl ein PopUpMenu besitzt und dann dieses PopUpMenu öffnen.<br>
Ich dachte, das wäre schön einfach. Nämlich:<p><code>
if Assigned(Form1.ActiveControl.PopUpMenu) then<br>
Form1.ActiveControl.PopUpMenu.PopUp(x,y);</code><p>
Aber leider ist in TControl die Eigenschaft PopUpMenu als protected definiert !<br>
Einen gemeinsamen Vorfahren für häufig benutzte Komponenten wie TEdit und TComboBox, der eine veröffentlichte Eigenschaft von PopUpMenu hat, gibt es meines Wissens nicht.<br>
Was kann ich tun, wenn ich nicht in endlosen IF-Abfragen alle TWinControls abklappern möchte.<p>
Gruß Marcus

[Hagen Reddmann]

Hi

<pre>

type
TControlCracker = class(TCustomControl);

proceudre XYZ;
begin
if Form1.ActiveControl is TControl then
if TControlCracker(Form1.ActiveControl).PopupMenu <> nil then ...
end;

</pre>

Gruß Hage