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