掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
呼び出したメニュー(TMenuItem)から、そのメニューの属するTPopupMenuを識別するには? (ID:32365)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ofzさん、う〜んさん、KHE00221さん、レス有難うございます。 ofzさんの示してくださったコードが私が求めていたものドンピシャでした。 う〜んさん、KHE00221さんの抱かれた疑問への回答は下のようになります。 1.呼び出しメニューはTPopupMenu直下のものとは限らず、さらにサブメニューといった使い方も予定しています。 2.TPopupMenuも、例えば、TPanelの増減にしたがって、動的に処理するようなことを予定しており、 さらに、共通のprocedureを呼び出すTMenuItemも一つのTPopupMenuから一つではなく複数を予定しています。したがって、Senderのみで区別も可能と思われますが、TMenuItem.Nameの名前付けに制約がつき厳密に管理する必要があるのではないかと思います。ここでは、TMenuItem.Captionのみの緩やかな管理で使用したいと思っています。 ofzさん、う〜んさんの示されたコードを見れば、なんとなく、そういう構造になっていたのかとは分かりましたが、これはヘルプを見て普通に分かるものなのでしょうか(私はわかりませんでしたが^^)。それとも、Delphi6 Personalのヘルプでは分からないけど、他のヘルプだったらわかるとか、あるいは、製品版で?classes.pasを見たら分かるというものなのでしょうか。 一応、解決としておきますが、コメントして下さるとありがたいです。 なお、私が提示したprocedure TForm1.Button1Click(Sender: TObject);内のコードに間違いがありましたので訂正しておきます。すみませんでした。 Pop.Name:='PopupMenu3'; ↓ Pop2.Name:='PopupMenu3';
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.