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

解決

MT 2009-03-31 21:37:09 No: 33806

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

PopupComponentプロパティですよん。

MT 2009-03-31 22:12:04 No: 33808

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

MT 2009-03-31 22:19:05 No: 33809

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