tikkypeng(千两狂死郎)快看！给你50分！！！！！！！！！！！

Question

在你的PopupMenu1的菜单里面的子项（也就是TMenuItem）的OnItemDraw事件中写入如下代码var
  j:Integer;
begin
  if Selected then
  begin //鼠标选中则执行
    Acanvas.Font.Color := ClRed;
    Acanvas.Fillrect(ARect);
    Acanvas.Brush.Color := $00EDD8C6;
  end
  else begin //鼠标没有选中则执行
    Acanvas.Brush.color := $00B9ECE8;
    Acanvas.Fillrect(ARect);
    Acanvas.Font.color := ClBlack;
  end;
  Acanvas.brush.Style:=bsclear;
  Acanvas.textout(Arect.Left,Arect.Top,'文件');//这里的文件指的是你的菜单的Caption
end;

Answer 1

至于菜单～～
你放一个TPopupMenu控件～～让在在里面可以增减自己定义的菜单选项～～（TMenuItem）

Answer 2

我的邮箱是[email protected]
谢谢了

Answer 3

双击PopupMenu1控件～～调出菜单编辑器～～

Answer 4

选择你的菜单的具体项目～～然后在属性里面有一个BitMap属性～～那个就是菜单的图表～～

Answer 5

tikkypeng(千两狂死郎)　来了吗？
如果看见就请赶快回答我的问题，万分火急！！谢谢了。

Answer 6

放在TextOut前面试试～～如果不行的话～～我就黔驴技穷了～～呵呵～～

Answer 7

呵呵，你终于来了。
那个图标放不上去，我各种方法都试过了不过还有一个问题，就是我的字体要改，字号要加大，怎么办呢？
我用了acanvas.font.size好像不起作用