PopUp Menü auf linke Maustaste

[Alex_ITA01]

Moin Moin erstmal,
ich habe folgendes Problem:
ich würde gerne ein Button mit einem PopUpMenü verknüpfen.Das ist ja auch kein Problem nur ich möchte nicht mit der rechten Maustaste auf den Button klicken um das Popup zu sehen sondern mit der linken Maustaste! Wie kann man das realisieren? MFG Alex

[Bernhard Geyer]

Dazu gibt es in der TPopupMenu-Komponente die Methode Popup(X, Y: Integer).
Also Mausklick auswerten und MyPopup.Popup aufrufen.

[Alex_ITA01]

okay danke schön,werde ich dann mal probieren
THX
Alex

[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.

[Harry M.]

[edit] schip schnapp [/edit] habe was falsch verstanden