メニューのチェックマークをＢＭＰにする

とりあえず、下記のように出来ます。(もっと綺麗なものに仕上げたいのならば特選サンプル集の「オーナードローメニュー」を参照して下さい。)


■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

■メニューのチェックマークをＢＭＰにする処理
procedure TForm1.FormCreate(Sender: TObject);
begin

//「新規作成」のチェックマークをBMPにする
SetMenuItemBitmaps(New1.Parent.Handle, New1.MenuIndex, MF_BYPOSITION,
Image1.Picture.Bitmap.Handle, Image1.Picture.Bitmap.Handle);

//「開く」のチェックマークをBMPにする
SetMenuItemBitmaps(Open1.Parent.Handle, Open1.MenuIndex, MF_BYPOSITION,
Image2.Picture.Bitmap.Handle, Image2.Picture.Bitmap.Handle);

//「上書き保存」のチェックをBMPマークにする
SetMenuItemBitmaps(Save1.Parent.Handle, Save1.MenuIndex, MF_BYPOSITION,
Image3.Picture.Bitmap.Handle, Image3.Picture.Bitmap.Handle);

end;


Win32APIのページへ