08/07/25 22:48:34
ポップアップメニューについて質問です。
複数のボタンに、１つのポップアップメニューを設定しています。
この中のどれかのボタンを右クリックしてポップアップメニューが立ち上がった時、
ポップアップメニュー内のイベントハンドラで
「どのボタンから呼び出されたか」を知りたいのですが、どうすればいいでしょうか？
// このように設定しています。
button[0].popupMenu := popupMenu1;
button[1].popupMenu := popupMenu1;
button[2].popupMenu := popupMenu1;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
// ここで「呼び出し元のボタン」を知りたい
end;
よろしくお願いします。