PopUpMenuで右クリックしたObject名を取得するには？

解決

MT  2009-03-31 21:37:09  No: 33806  IP: 192.*.*.*

StringGridに共通したPopUpmenuを作りました。Menuを選択したとき

procedure TForm1.N7Click(Sender: TObject);
begin
   Xprocedure(TStringGrid(Sender));
end;
で右クリックしたStrinｇGrid名を取得したいのですが、「N7」を取得してしまいます。方法を教えてください。(delphi7pro)

編集 削除
ちゃうちゃう  2009-03-31 22:10:51  No: 33807  IP: 192.*.*.*

PopupComponentプロパティですよん。

編集 削除
MT  2009-03-31 22:12:04  No: 33808  IP: 192.*.*.*

自己レスです
procedure TForm1.N7Click(Sender: TObject);
begin
    xprocedure(TStringGrid(PopUpmenu1.PopUpComponent));
end;
でObujectを取得できました。

編集 削除
MT  2009-03-31 22:19:05  No: 33809  IP: 192.*.*.*

ちゃうちゃうさん、ありがとうございます。見つける前に解答が先に入っていました。

編集 削除