Popupmenu TMenuItem Rechtsklick

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

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

[jaenicke]

Füge mal in dem PopupMenu1Popup am Ende noch hinzu:

Delphi-Quellcode:

  TrackPopupMenuEx(PopupMenu1.Handle,
                            TPM_RECURSE or TPM_BOTTOMALIGN or TPM_RETURNCMD,
                            Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);

Funktioniert auch noch nicht alles (das erste Menü reagiert nicht auf Klicks), aber mehr als vorher.

[Shark99]

Verstehe ehrlich gesagt den Sinn deines Codes nicht. Damit geht bei jedem Klick das Popupmenü nochmal auf, und zwar auch beim Linksklick.

[jaenicke]

Setz mal einen Haltepunkt auf MenuRButtonUp. Da kommst du nämlich nun an. Du kannst das auch anderswo einbauen, ich wollte nur zeigen, dass du so den Rechtsklick bekommst.

[Shark99]

Das stimmt, allerdings bekommt man 2+ Popupmenüs angezeigt, und zwar auch beim Linksklicks.

TrackPopupMenuEx() zeigt zwangsläufig das Menü an. Man kann aber .Popup() durch TrackPopupMenuEx() nicht ersetzen, weil TrackPopupMenuEx() keine Events auslöst (kein OnPopup etc).

p.s.

Habe nun versucht WM_MENURBUTTONUP in WndProc() abzufangen und dort einen Timer für 500ms zu starten damit ich erkenne dass ein Menü-Rechsklick stattgefunden hat. Aber MENURBUTTONUP wird in WndProc nie ausgelöst. Bin langsam am verzweifeln.