PopUpMenu не срабатывает OnDrawItem

[Comer_Jus]

Менюха создаётся динамически
вот код:

procedure TForm1.FPopupMenuPopup(Sender: TObject);
 Var TX,TY,TZ :Integer;
     FMenuItem:TMenuItem;
     Pos      :TPoint;

 Begin
  GetCursorPos(Pos);
  Tx:=Pos.X;
  Ty:=Pos.Y;

  FPopupMenu:= TPopupMenu.Create(Self);
  FPopupMenu.AutoPopup:=False;
  FPopupMenu.Tag:= 0;
  For TZ:=1 To 23 Do
   Begin
    FMenuItem := TMenuItem.Create(Self);
    With FMenuItem Do
     begin
      Tag     := TZ;
      OnClick := FPopupMenuClick;          
      Caption := IntToStr(TZ);
      Hint    := 'HINT '+IntToStr(TZ);
      Bitmap.LoadFromFile('Images\'+IntToStr(TZ)+'.bmp');
      OnDrawItem:=DrawItem;
     End;
    FPopupMenu.Items.Add(FMenuItem)
   End;

  FPopupMenu.Popup(TX,TY);
  Application.ProcessMessages;   
  If FPopupMenu.Tag<>0 Then       
   Begin
    Form1.Caption:=FPopUpMenu.Items[FPopupMenu.Tag-1].Hint;
   End;

 FPopupMenu.Free;
 FPopupMenu:= nil;
End;


procedure TForm1.DrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; Selected: Boolean);
Begin
//Тута я всё рисую
End;

FPopUpMenu.OwnerDraw=TRUE
но не срабатывает OnDrawItem (->DrawItem)
почему?

[Comer_Jus]

Если вручную создать пункты и в их OnDrawItem указать ->DrawItem
то всё работает как надо
А вот при динамическом создании не алё?????

[Квэнди]

выставьте корректно свойство dragmode

[Comer_Jus]

Чтото я не нащёл такого свойства (у меня Delphi7)
может тогда его ещё не придумали?

[Comer_Jus]

Народ! не ужели никто не сталкивался?

[alexBlack]

А где FPopUpMenu.OwnerDraw=TRUE ?
Оно должно устанавливаться после создания объекта:

FPopupMenu:= TPopupMenu.Create(Self);
FPopupMenu.AutoPopup:=False;
FPopUpMenu.OwnerDraw :=TRUE;

у Вас в коде этого не видно.

[Comer_Jus]

Спасибо!
причина была в этом!
не досмотрел