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

[marabu]

Hallo Carsten,

im Menu-Designer der IDE kannst du ein MenuItem über sein Kontextmenü zum Untermenü machen.

Grüße vom marabu

[Der_Ventilator]

Mit der Toolbar 2000 bzw. der TBX-Erweiterung kannst du sogar Edit-Felder usw. in ein popupmenu einfügen

[stonimahoni]

@ marabu :

meinst du diesen befehl ?! : SetSubComponent();


und wenn ja, wie wende ich den richtig an ? hab mir grad einen abgebrochen dabei aber da is nix anders gewesen und vor allem kein menüpunkt als untermenü :(

wie mache ich das am besten ?


danke

mfg

carsten

[CalganX]

Hi,
nein... wenn du im Menü-Designer zur Designzeit von Delphi bist, dann kannst du Rechtsklick auf einen Eintrag machen. Dort kannst du dann ein Untermenü erstellen. Das ist wesentlich einfach als sich einen abzubiegen, wie du das gerade machst. ;)

Chris

[robinWie]

Entweder ein untermenü erstellen,
oder vielleich mit

Delphi-Quellcode:

 
Popupmenu1.OnPopup(X,Y)

Robin

[Lannes]

Hallo,

Zitat:

Zitat von stonimahoni

@ marabu :
meinst du diesen befehl ?! : SetSubComponent();
und wenn ja, wie wende ich den richtig an ?

wenn Du ein SubMenü zur Laufzeit erzeugen willst, hier das passende Stichwort: NewSubMenu

[stonimahoni]

Morgen an alle erstmal.

Danke für eure Hilfe.

War gestern wohl extremst vernebelt im Hirn :(

Das ich net an die Sache gedacht habe, die Chakotay1308 angesprochen hat und das ich das von marabu falsch verstanden habe.... nenenene :wall: :wall: :wall:


Wie gesagt...vielen Dank nochmal


MFG

Carsten