für 'nen Edit:
Delphi-Quellcode:
Procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
PopupMenu1.Popup(Edit1.ClientToScreen(Point(X, Y)).X, Edit1.ClientToScreen(Point(X, Y)).Y);
End;
für mehrere Edit's:
Wenn du's für was anderes brauchst, dann macht es sich besser, wenn TEdit dann durch das Entsprechende ausgetauscht wird.
Delphi-Quellcode:
Procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
PopupMenu1.Popup(TEdit(Sender).ClientToScreen(Point(X, Y)).X, TEdit(Sender).ClientToScreen(Point(X, Y)).Y);
End;
PS: die Eigenschaft PopupMenu muß aber leer bleiben.