In einem Popupmenu ein weiteres Popupmenu

[stonimahoni]

Hi Leute.


Hab schon bissl gesucht hier und im Inet allgemein, aber nicht so wirklich das pasende gefunden.

Ich habe ein Popupmenu das ich folgendermassen ansteuer :

Delphi-Quellcode:

if (Sender is TbuttonControl) then
   begin
      pt.x := TbuttonControl(Sender).Left + (TbuttonControl(Sender).Width div 2);
      pt.y := TbuttonControl(Sender).Top + (TbuttonControl(Sender).Height div 2);
      o    := TbuttonControl(Sender).Parent;
      while Assigned(o) and (o <> Self) do
      begin
         pt := o.ClientToScreen(pt);
         o  := o.Parent;
      end;
      PM_Einzeldruck.Popup(pt.x, pt.y);
   end;

Das musste ich so machen, weil es über einen Button aufgerufen wird, der auf einem Panel liegt. Und das Popupmenu soll direkt neben dem Button aufklappen.

Sooo...nun habe ich mehrere Einträge in diesem Menü und würde gern bei bisher zweien ein weiteres Aufklappen ermöglichen. Also eine Art Popup im Popup. (Ich drücke den Button - Popupmenu geht auf - ich klicke auf einen Eintrag - ein weiteres Popupmenu geht auf)
Kann ich das irgendwie realisieren ?



Vielen Dank.


MFG


Carsten