hmm du könntest das ganze vertstecken
ist ein bisschen aufwand aber schau mal:
du brauchst ein TMainMenu(wenn nicht eh schon vorhanden) und 2 Popupmenus
In das Mainmenu machst du einen versteckten eintrag welcehr das 2 Popup auffahrt. und wenn du beim ersten den einen Menüeintrag anklickst dann öffnet sich das Popup
.. musst halt die Koordinaten abfragen.. geht sicher leichter aber ES GEHT
so gehts einfach :
Delphi-Quellcode:
var X1,Y1 : Integer;
implementation
{$R *.dfm}
procedure TForm1.START1Click(Sender: TObject);
begin
Popupmenu2.Popup(X1+Form1.left+20,Y1+Form1.top+40);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
X1 := X;
Y1 := Y;
end;
Start1 ist ein Eintrag im ersten Popup
