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;