Popupmenu TMenuItem Rechtsklick

[Shark99]

Ich will ein PopupMenu bei dem man einen Eintrag auch rechtsklicken kann. Es wird dann eine andere Funktion ausgeführt als beim Linksklick.

Die Googlesuche brachte nicht wirklich was brauchbares.

Hier gibt es Code für ein RCPopupmenu. http://stackoverflow.com/questions/1...enu-item-click

Das Problem ist dass es nicht richtig funktioniert. Ich bekomme beim Rechtsklick ein anderes MenuItem als das welches angeklickt wurde. Liegt wohl daran dass ich in OnPopup die meisten Menuitems dynamisch erzeuge und die Komponente damit nicht zurecht kommt. edit: die richtige Position bekomme ich wenn ich diese um die Anzahl der unsichtbaren Elemente bis zu dieser Position erhöhe. Ein großes Problem bleibt aber. Submenus werden komplett ignoriert.

Dann bleibt noch das Problem dass ich beim Rechtsklick das Popupmenu wieder manuell schließen muss. Durch Google kam ich auf SendMessage(PopupList.Window, WM_CANCELMODE, 0, 0); welches jedoch auch nicht funktioniert. Ich nutze Delphi 2009.

Danke im Voraus!

[Luckie]

Also ich würde das irgendwie anders lösen. Rechtsklicks auf Menüeinträge sind nicht Standardkonform und sind mir noch nie unter gekommen. Ist ungefähr wie rechts Klick auf eine Schaltfläche. Gibt es auch nicht unter Windows. OK, den Strat-Button von Windows selbst mal ausgenommen. Aber hätte ich das nicht mal irgendwo gelesen, ich hätte es nie entdeckt.

Also ich würde die GUI nochmal überarbeiten. Hinzukommt, dass du dann auch nicht solche Klimmzüge in der Programmierung machen musst. Keep it simple.

[redox]

Nimm doch statt OnClick OnMouseUp, dann kannst Du unterscheiden, welche Maustaste gedrückt wurde.

[Shark99]

Zitat von Luckie:

Also ich würde das irgendwie anders lösen. Rechtsklicks auf Menüeinträge sind nicht Standardkonform und sind mir noch nie unter gekommen. Ist ungefähr wie rechts Klick auf eine Schaltfläche. Gibt es auch nicht unter Windows. OK, den Strat-Button von Windows selbst mal ausgenommen. Aber hätte ich das nicht mal irgendwo gelesen, ich hätte es nie entdeckt.

Also ich würde die GUI nochmal überarbeiten. Hinzukommt, dass du dann auch nicht solche Klimmzüge in der Programmierung machen musst. Keep it simple.

Es gibt diese Funktionalität durchaus in Windows Menüs, sogar in Microsoft Programmen. in Microsoft Office 2007 kann man Menüeinträge rechtsklicken um das Menü anzupassen. Auch im Internet Explorer im Favoriten Menü kann man die Einträge rechtsklicken. Im Firefox funktioniert es auch. In meinem Fall wird es direkt in Programmfenster erkärt dass es geht. Das Feature will ich einbauen weil sehr viele User danach gefragt haben.

Zitat von redox:

Nimm doch statt OnClick OnMouseUp, dann kannst Du unterscheiden, welche Maustaste gedrückt wurde.

TMenuItem hat kein OnMouseUp.

[jaenicke]

Laut Doku geht das mit WM_MENURBUTTONUP:
https://msdn.microsoft.com/en-us/library/ms647610.aspx

[Luckie]

Uuff. Wieder was gelernt. Ich glaube ich muss den Windows 7 Kurs noch mal machen.

[jaenicke]

Ich war eben unterwegs, auf dem Handy wollte ich nicht mehr dazu schreiben.
Jedenfalls findet man dazu eigentlich leicht einiges bei Google:
delphi tmenuitem right mouse click
Unter anderem auch fertigen Code zu der Message, die ich gepostet habe:
http://stackoverflow.com/questions/3...em-right-click
http://www.delphipages.com/forum/sho...d.php?t=180337

Zum Sinn:
Man denke an die Favoriten in diversen Browsern, die Jumplist ab Windows 7 in der Taskleiste, schon genannt wurden Dateien in Menüs, ...

[Bernhard Geyer]

Zitat von Shark99:

Es gibt diese Funktionalität durchaus in Windows Menüs, sogar in Microsoft Programmen. in Microsoft Office 2007 kann man Menüeinträge rechtsklicken um das Menü anzupassen.

Gibts schon länger bei Office. Und dort war es immer das Problem das die Anwender versehentlich ihre Menüpunkte ausgeblendet haben und dann nachgefragt haben wo den diese Funktion jetzt nur wieder ist.

[Shark99]

Zitat von jaenicke:

Ich war eben unterwegs, auf dem Handy wollte ich nicht mehr dazu schreiben.
Jedenfalls findet man dazu eigentlich leicht einiges bei Google:
delphi tmenuitem right mouse click
Unter anderem auch fertigen Code zu der Message, die ich gepostet habe:
http://stackoverflow.com/questions/3...em-right-click
http://www.delphipages.com/forum/sho...d.php?t=180337

Zum Sinn:
Man denke an die Favoriten in diversen Browsern, die Jumplist ab Windows 7 in der Taskleiste, schon genannt wurden Dateien in Menüs, ...

Ich habe doch gepostet dass ich Code gefunden hab und sogar zu Stackoverflow gelinkt. Die RCPopupMenu Lösung (hab gleichen Code verlinkt wie dein DelphiPages Link) funktioniert nicht sobald man entweder Menüeinträge dymanisch erzeugt oder einige per Visible nicht anzeigt.

Die zweite Lösung mit WM_MENURBUTTONUP hab ich auch versucht. Hätte es mit dazu schreiben sollen.

Mit WM_MENURBUTTONUP funktionieren die Klicks zwar aber es gibt zwei Probleme.

1. Ich bekomme nicht mit ob ein Rechtsklick oder ein Linksklick durchgeführt wurde.
2. Das Popupmenü verschwindet sofort nach dem Klick. Wenn ich in Word, IE oder Firefox einen Menüeintrag rechtsklicke wird ein neues Popup-Menü angezeigt, das alte Menü bleibt aber sichtbar so lange bis im neuem Popupmenü etwas ausgewählt wurde.

[Shark99]

Hab noch was Interessantes entdeckt bei der zweiten Lösung (die mit den zwei problematischen Punkten).

Auch wenn der Rechtsklick damit funktioniert, wird die Funktion MenuRButtonUp() überhaupt nicht aufgerufen. Label1.Caption ändert sich nie. Projekt hab ich angehängt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    PopupItem11: TMenuItem;
    popupitem21: TMenuItem;
    submenu1: TMenuItem;
    Label1: TLabel;
    procedure PopupItem11Click(Sender: TObject);
    procedure PopupItem21Click(Sender: TObject);
    procedure PopupItemClick(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
  private
    FSelectedItem: TMenuItem;
    FTracking: Boolean;
    procedure MenuRButtonUp(var Msg: TMessage); message WM_MENURBUTTONUP;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.MenuRButtonUp(var Msg: TMessage); // ??? wird nie aufgerufen
var
  Cmd: UINT;
begin
  Label1.Caption := TimeToStr(now);
  LongBool(Cmd) := TrackPopupMenuEx(PopupMenu1.Handle,
                            TPM_RECURSE or TPM_BOTTOMALIGN or TPM_RETURNCMD,
                            Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);
  if Cmd <> 0 then
    PopupMenu1.DispatchCommand(Cmd);
  inherited;
end;


procedure TForm1.PopupItem11Click(Sender: TObject);
begin
  Caption := TimeToStr(Now)+' Popup Item 1 clicked on ';
end;

procedure TForm1.PopupItem21Click(Sender: TObject);
begin
  // whatever..
  Caption := TimeToStr(Now)+' Popup Item 2 clicked on ';
end;

procedure TForm1.PopupItemClick(Sender: TObject);
begin
  Caption := TimeToStr(Now)+' clicked on '+TMenuItem(Sender).Caption;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var mi : TMenuItem;
begin
  submenu1.Clear;
  mi := TMenuItem.Create(PopupMenu1);
  mi.Caption := 'Test1';
  mi.OnClick := PopupItemClick;
  submenu1.Add(mi);
  mi := TMenuItem.Create(PopupMenu1);
  mi.Caption := 'Test2';
  mi.OnClick := PopupItemClick;
  submenu1.Add(mi);
end;

end.