如何控制程序菜单的背景和字体，一般的话都是有Windows外观控制的？

Question

我认为在菜单项目的OnDrawItem事件里自己画

Answer 1

首先将菜单的ownerdraw属性设置为true;然后在菜单项的drawitem中写入代码即可。
procedure TForm1.New1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Font:=YourFont;//在这儿定义你自己的菜单的字体
  acanvas.Font.Color:=clred;  //字体的颜色
  if selected then
    SetBkColor(acanvas.handle,clgreen)  //背景色，选中的时候
  else
    setBkcolor(acanvas.handle,clblue);
  acanvas.TextRect(arect,0,0,new1.caption);//显示文字
end;
其他的类似，明白了吗？