■ PopUpMenuで右クリックしたObject名を取得するには？
MT
2009/03/31(火) 21:37:09 <初心者> 
StringGridに共通したPopUpmenuを作りました。Menuを選択したとき
procedure TForm1.N7Click(Sender: TObject);
begin
Xprocedure(TStringGrid(Sender));
end;
で右クリックしたStrinｇGrid名を取得したいのですが、「N7」を取得してしまいます。方法を教えてください。(delphi7pro)
ちゃうちゃう
2009/03/31(火) 22:10:51
PopupComponentプロパティですよん。
MT
2009/03/31(火) 22:12:04 <初心者>
[[解決]]
自己レスです
procedure TForm1.N7Click(Sender: TObject);
begin
xprocedure(TStringGrid(PopUpmenu1.PopUpComponent));
end;
でObujectを取得できました。
MT
2009/03/31(火) 22:19:05 <初心者>
ちゃうちゃうさん、ありがとうございます。見つける前に解答が先に入っていました。
毎週金曜日はポイント最大3倍！さらに4倍のチャンスも！
