PopUp Menü auf linke Maustaste

[himitsu]

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.