如何在MainMenu上 右侧的空白处加TImage

Question

如何在MainMenu上 右侧的空白处加TImage我想在主菜单右侧空白的地方加上一个TImage
应该如何操作呢
var
ImageArray:TImage;
begin
  ImageArray:=Tbutton.Create(self);
  ImageArray.Parent:=MainMenu1;
  ImageArray.Top:=0;
  ImageArray.Left:=300;这样附加的话 只能显示在菜单下面

Answer 1

upUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 2

怎么画啊~！  API？

Answer 3

在菜单的OnMeasureItem事件中写代码，画image

Answer 4

在菜单的OnMeasureItem事件中写代码，画image

Answer 5

upupupupupupupupupupupupupupupupupupupupupupupupup

Answer 6

procedure TForm1.bbb1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Draw(0,2,image1.picture.bitmap);
  acanvas.TextOut(arect.left+image1.picture.bitmap.width+2,arect.top,tmenuitem(sender).caption);
end;