TPopUpMenu にいくつかのアイコンを割り当てましたが、ownerdraw に変更されたようです (false に設定されています)... XP マニフェストも使用していますが、まだとても古いように見えます (Win2000 スタイル)... Windows/エクスプローラーで?もしかしてコンポーネント?
問題を示す画像を次に示します。
ご協力ありがとうございました。
これは、Delphi 7 が非常に古いという問題にすぎません。リリースされた当時は素晴らしかったが、今では 10 年前のものであり、その古さは明らかだ。
Toolbar2000が役に立つかもしれません。その名前にもかかわらず、メニューを Office 2000 のメニューのように見せることができる非常に柔軟な代替機能TMenu
と機能が含まれています。TPopupMenu
Office 2000 style menus
Office 2000 スタイルのメニュー メニューとツールバーの間に明確な区別がないため、最大限の柔軟性が得られます。ツールバーにはメニューを含めることができ、メニュー バーにはボタンを含めることができ、同じ項目を共有できます。
フリーウェア (ソース付き) としてリリースされているため、利用可能であり、AFAICT では引き続き Delphi 7 をサポートしています。そうでない場合は、Toolbar97
(同じ URL から入手可能) 同様の機能が提供されます。