PopupMenu-Item->Rechtsklick

[Nicodius]

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