|
|
||
| 解説： PopupMenu は、右クリックしたときにメニュー表示されます。今回はその機能を利用してヒント表示をしてみます。 ユーザーはソフトの使い方などで困った時、ヘルプを頼りにします。まとまったヘルプは必須ですが、各コンポーネントに表示してくれるヒントも場合によっては、必要になります。 使用例： 以下は、Button1 を右クリックすると、ヒントメニューが表示され、それをクリックするとコメントが見られる例です。 コンポーネントとしては、Button と PopupMenu を適当に配置してください。 アプリ起動後、コンストラクタで、Button にポップアップメニューを割り当てています。ヒントメニューもコードで動的に作成しています。OnClick のイベントは HelpPopClick が割り当ててあります。 今回は Button ひとつだけでしたが、複数コンポーネントでの利用も工夫してみてください。 //------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //表示させたいポップアップメニューを割り当てる Button1->PopupMenu = PopupMenu1; //動的に項目を作成 TMenuItem *item = new TMenuItem(this); //メニューに項目とイベントを追加 item->Caption = "ヒント..."; item->OnClick = HelpPopClick; PopupMenu1->Items->Add(item); } //------------------------------------------------------------------- void __fastcall TForm1::HelpPopClick(TObject *Sender) { ShowMessage("ボタンです。"); } //------------------------------------------------------------------- |