[gelöst] Standard-Popup-Menü ausblenden

[willi4willi]

Hallo!

Wenn ich in einem laufenden Programm auf ein Eingabefeld (TEdit) mit der rechten Maustaste klicke, dann erscheint ein Standard-Kontext-Menü.

Wie kann ich das verhindern?

Ich möchte bei Rechts-Click eine eigene Procedure aufrufen ohne dass dieses Menü erscheint.

[Mathias]

Eine Komponente TPopUpMenu auf das Formular legen. (Bei Standard das 2. Sybol links von TButton)

Anschliessend das PopUpMenu bei TEdit-Egenschaften auswählen und schon hast du dein eigenes Menu.

[willi4willi]

Hallo Mathias,

ja das funktioniert. Aber ich möchte kein Kontext-Menü haben, sondern dass bei Rechts-Click eine eigene Procedure aufgerufen wird - ohne Menü.

[theo]

Dann entferne alle Einträge aus dem Popupmenu, lasse es aber eingehängt.
Das klappt zumindest unter GTK2.

[Michl]

Warum nicht einfach:

Code: Alles auswählen

procedure TForm1.Edit1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case Button of
    mbRight: ShowMessage('Jetzt könnte eine Procedure gestartet werden');
  end;
end;

[willi4willi]

Hallo,

super, das hat geklappt. Ich habe einfach ein leeres Popupmenu hinzugefügt und schon ist das Standard-Ding weg.

Dazu noch der Tipp von Michl und die Lösung ist perfekt.

Danke allen!

[Mathias]

Dann entferne alle Einträge aus dem Popupmenu, lasse es aber eingehängt.
Das klappt zumindest unter GTK2.

Bei mir unter Win 7 kann ich den letzten Eintrag im Menu-Editor nicht löschen.
Es geht nur im Objectinspector.