как добавить в поп-ап меню иконки???delphi

[ArcaN0id]

есть меню. Подскажите как динамически добавить иконки к каждому пункту меню?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls,Math;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FColorBackgroundClick(Sender:TObject);
    procedure FSortClick(Sender:TObject);
    procedure FScaleClick(Sender:TObject);
    procedure FRandomClick(Sender:TObject);
    procedure FByTableClick(Sender:TObject);
    procedure FByEdgesClick(Sender:TObject);
    procedure FRotateLeftClick(Sender:TObject);
    procedure FRotateRightClick(Sender:TObject);
    procedure FCheatClick(Sender:TObject);
    procedure FMoveClick(Sender:TObject);
    procedure FTurnClick(Sender:TObject);
    procedure FNeighbourClick(Sender:TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

  var
  Image1: TImage;    
  Form1: TForm1;    
  FPopupMenuForm : TPopupMenu;  
  FPopupMenuDet: TPopupMenu;    
  FColorBackground: TMenuItem;  
  FRotateLeft:TMenuItem;        
  FRotateRight:TMenuItem;        
  FScale:TMenuItem;              
  FMove:TMenuItem;               
  FTurn:TMenuItem;              
  FSort:TMenuItem;            
  FCheat:TMenuItem;             
  FRandom:TMenuItem;          
  FByTable:TMenuItem;           
  FByEdges:TMenuItem;          
  FNeighbour:TMenuItem;         

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FPopupMenuForm:=TPopupMenu.Create(Form1);
Form1.PopupMenu:=FPopupMenuForm;
FColorBackground:=TMenuItem.Create(FPopupMenuForm);
FSort:=TMenuItem.Create(FPopupMenuForm);
FScale:=TMenuItem.Create(FPopupMenuForm);
FNeighbour:=TMenuItem.Create(FScale);
FRandom:=TMenuItem.Create(FSort);
FByTable:=TMenuItem.Create(FSort);
FByEdges:=TMenuItem.Create(FSort);

Image1:=TImage.Create(Form1);
Image1.Parent:=Form1;
Image1.Left:=5;
Image1.Top:=5;
Image1.Height:=50;
Image1.Width:=50;


FPopupMenuDet:=TPopupMenu.Create(Image1);
Image1.PopupMenu:=FPopupMenuDet;
FRotateLeft:=TMenuItem.Create(FPopupMenuDet);
FRotateRight:=TMenuItem.Create(FPopupMenuDet);
FCheat:=TMenuItem.Create(FPopupMenuDet);
FMove:=TMenuItem.Create(FCheat);
FTurn:=TMenuItem.Create(FCheat);


 with FPopupMenuForm do
 begin
  Items.Insert(0,FColorBackground);
  Items.Insert(1,FSort);
  Items.Insert(2,FScale);
 end;

 with FSort do
 begin
  Caption:='Sort';
  Insert(0,FRandom);
  Insert(1,FByTable);
  Insert(2,FByEdges);
  OnClick:=FSortClick;
 end;

 with FColorBackground do
 begin
  Caption:='Color background';
  OnClick:=FColorBackgroundClick;
 end;

 with FScale do
 begin
  Caption:='Scale';
  Insert(0,FNeighbour);
  OnClick:=FScaleClick;
 end;

 with FRandom do
 begin
  Caption:='Random sort';
  OnClick:=FRandomClick;
 end;

 with FByTable do
 begin
  Caption:='Sort by table';
  OnClick:=FByTableClick;
 end;

 with FByEdges do
 begin
  Caption:='Sort by edges';
  OnClick:=FByEdgesClick;
 end;

  with FNeighbour do
 begin
  Caption:='Show neighbour';
  OnClick:=FNeighbourClick;
 end;

 with FPopupMenuDet do
 begin
  Items.Insert(0,FRotateLeft);
  Items.Insert(1,FRotateRight);
  Items.Insert(2,FCheat);
 end;

 with FCheat do
 begin
  Caption:='Cheat';
  Insert(0,FMove);
  Insert(1,FTurn);
  OnClick:=FCheatClick;
 end;

 with FRotateLeft do
 begin
  Caption:='Rotate Left';
  OnClick:=FRotateLeftClick;
 end;

 with FRotateRight do
 begin
  Caption:='Rotate Right';
  OnClick:=FRotateRightClick;
 end;

 with FMove do
 begin
  Caption:='Move to its place';
  OnClick:=FMoveClick;
 end;

 with FTurn do
 begin
  Caption:='Tern to correct state';
  OnClick:=FTurnClick;
 end;

end;

procedure TForm1.FNeighbourClick(Sender:TObject);
begin
//
end;

procedure TForm1.FColorBackgroundClick(Sender:TObject);
begin
//
end;

 procedure TForm1.FSortClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FScaleClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FRandomClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FByTableClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FByEdgesClick(Sender:TObject);
 begin
//
 end;

procedure TForm1.FRotateLeftClick(Sender:TObject);
begin
//
end;

 procedure TForm1.FRotateRightClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FCheatClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FMoveClick(Sender:TObject);
 begin
//
 end;

 procedure TForm1.FTurnClick(Sender:TObject);
 begin
//
 end;

end.

[RUSt88]

const
  pMenuClose = WM_USER + 30;
var
  bmp: array [1 .. N] of HBITMAP;
  hPopupMenu: HMENU;

SetMenuItemBitmaps(hPopupMenu, pMenuClose, MF_BITMAP, bmp[2], bmp[2]);

[ArcaN0id]

а откуда загружать?

можете прямо в мой код вставить как это будет а то я не понял

[RUSt88]

        bmUnChecked := TBitmap.Create;
        bmUnChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');
        bmChecked := TBitmap.Create;
        bmChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\CHECK.BMP');
        {Add the bitmaps to the item at index 1 in PopUpMenu}
        SetMenuItemBitmaps(PopUpMenu1.Handle,1,MF_BYPOSITION,BmUnChecked.Handle, BmChecked.Handle);

[ArcaN0id]

это я и сам нашел в инете))) оно не работает....

есть реально проверенный рабочий код?

[RUSt88]

во вложении реально работающий код, только написано на чистом апи

[ArcaN0id]

а файл res не прилагается?

и все же хочется увидеть реализацию в коде выложенном мною в первом сообщении.

[RUSt88]

гугли TPopupmenu

[ArcaN0id]

если бы я нашел в гугле то тут бы не спрашивал))

неужели никто не делал такого?

[RUSt88]

лучше юзай winapi