MouseUp in Popupmenu

[PaPaNi]

Wenn ich die Beschreibung richtig verstanden habe, dann fällt mir als Erstes so was ein...(vielleicht hilft das weiter)

1. Form-Constructor

Delphi-Quellcode:

  FMyPopupMenu := TPopupMenu.Create(Self);

  mi := TMenuItem.Create(Self);
  mi.Caption := 'Say YES';
  mi.OnClick := MyMenuClick;
  FMyPopupMenu.Items.Add(mi);

  mi := TMenuItem.Create(Self);
  mi.Caption := 'Say NO';
  mi.OnClick := MyMenuClick;
  FMyPopupMenu.Items.Add(mi);

2. OnMouseDown vom Button

Delphi-Quellcode:

var
  P: TPoint;
begin
  GetCursorPos(P);
  FMyPopupMenu.Popup(P.X, P.Y);
end;

3. procedure MyMenuClick(Sender: TObject);

Delphi-Quellcode:

var
  mi: TMenuItem;
begin
  mi := (Sender as TMenuItem);
  ShowMessage(mi.Caption);
end;