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;