你是指菜单旁边的图像吧离线数据包中有这方面的讨论.
菜单项中增加一条空项,在第一行,其bitmap属性中制定你要的位图.
菜单的owner draw:=true,
在OnMeasureItem中设定菜单长宽,在ownerdraw中画位图
procedure TForm1.n1measureitem(....)
begin
width:=n1.bitmap.width;
height:=n1.bitmap.height;
end;
procedure TForm1.n1DrawItem(Sender:Tobject;Acanvas::TCanvas;ARect:
TRect;Selected::Boolean)
begin
ACanvas.draw(ARect.left,ARect.top,n1.bitmap);
end;