В Delphi3 добавить картинки в меню

ОГЛАВЛЕНИЕ    HOME  MAIL

Для реализации этого примера создайте MainMenu1. В каком-нибудь пункте File пусть будет подпункт N2. И еще в том же каталоге, где сохранен проект нужно создать две картинки: Checked.bmp и UnChecked.bmp.

...
private
  bmUnChecked, bmChecked: TBitmap;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  bmUnChecked := TBitmap.Create;
  bmUnChecked.LoadFromFile('UnChecked.bmp');
  bmChecked := TBitmap.Create;
  bmChecked.LoadFromFile('Checked.bmp');
  SetMenuItemBitmaps(N1.Handle, 0, MF_BYPOSITION,
    BmUnChecked.Handle, BmChecked.Handle);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  N2.Checked := not N2.Checked;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmUnChecked.Free;
  bmChecked.Free;
end;