durch popup menü label erstellen

[the_beginner]

Zitat von BluesKid:

Moin

Zitat:

Dadurch das das PopupMenü jedoch im Objektinspektor bei Form1 unter Ereignisse bei PopupMenü eingetragen ist..

Lass das doch einfach weg. (e.g Form1.PopupMenu := nil)

Im MouseDown des Forms prüfen, obs die rechte Maustaste ist, wenn ja, Koordinaten merken (globale Variablen.. ) und Popopemenu1.popup aufrufen.

Dabei kannst du dann auch gleich vorher prüfen, ob an dieser Stelle schon ein Control vorhanden ist und dein Popupmenu entsprechend anpassen.


schönen Gruß
Sam

so ich hab das jetzt so gemacht wie du es gesagt hast, aber irgendwie popt das popup fenster etwa 50-100 pixel weiter oben und etwas rechts versetzt auf! woran liegt das?

hier der code:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  IF button=mbRight
   THEN popupmenu1.Popup(x,y);
end;