Delphi が提供するメニューは本当に使いにくいと思いますか? Delphi 独自の VCL コントロールを使用して、IE スタイルのメニューを実装できます。機能には、フローティング ボタン、ドラッグ位置、グラフィックスが含まれます。これらはすべて、サードパーティ製のコントロールや多くのプログラミングを必要としません。
IE スタイルのメニューを実装するには、次の手順が必要です。
1. 通常の方法で通常のメニューを定義します。
2. 定義されたメニューをウィンドウから非表示にします。
3. CoolBar と ToolBar をメニュー バーとしてウィンドウに追加します。
4. メニューをツールバー ボタンにマップします。
5. 特殊効果用のプログラム (オプション)。
最初のステップは、通常の方法で通常のメニューを定義することです。
TMainMenu コントロールをウィンドウに追加し、通常の方法でメニュー項目、アイコン、ショートカット キーなどを定義します。
2 番目のステップは、定義したメニューをウィンドウから非表示にすることです。
定義したメニューがウィンドウ上に自動的に表示されます。これは、TMainMenu コントロールがウィンドウに追加されると、TForm オブジェクトの Menu プロパティが追加された TMainMenu オブジェクトに自動的に設定されるためです。独自に定義したメニューを使用するには、このメニューを非表示にする必要があります。 TForm.Menu をクリアすると、定義されたメニューは自動的に表示されなくなります。
3 番目のステップは、CoolBar と ToolBar をメニュー バーとしてウィンドウに追加することです。
TCoolBar コントロールをウィンドウに追加し、その中に TToolBar コントロールを配置します。 TCoolBar と TToolBar の AutoSize プロパティを True に設定し、TToolBar の Flat プロパティを True に設定し、TToolBar の ShowCaptions プロパティを True に設定します。このようにして、空白のメニュー バーがウィンドウの上に表示されます。次に、このメニューバーにメニュー項目を追加します。
4 番目のステップは、メニューをツールバー ボタンにマップすることです。
TToolBar を右クリックし、ポップアップ メニューから [新しいボタン] を選択して、最初のボタンをメニュー バーに追加します。このボタンの AutoSize プロパティと Grouped プロパティを True に設定し、Caption プロパティをメニュー項目のテキストに変更します。たとえば、Caption プロパティが &File に設定される場合があります。最後に、このボタンの MenuItem プロパティを、TMainMenu で定義された対応するメニュー項目に設定します。たとえば、MenuItem プロパティが mnuFile に設定される場合があります。これらの設定を行うと、ボタンがメニュー項目にリンクされ、ボタンをクリックすると対応するメニューがポップアップ表示されます。
5 番目のステップは、特殊効果をプログラムすることです (オプション)。
前の 4 つの手順を完了すると、新しいメニューはすでに正常に動作するようになります。ただし、CoolBar のドラッグや位置決めなど、他の特殊効果を実装する場合は、さらにプログラミング作業を行う必要があります。これらの内容はこの記事の主題ではないため、説明しません。興味のある読者は Delphi のヘルプを参照してください。
読者の皆様も、この記事についてご意見をお寄せください。