在DELPHI中请问要如何改变下拉菜单的背景色，答对者分数全给他，

Question

http://richsearch.com/
搜索 菜单 背景

Answer 1

能给我一个吗
[email protected]
给分

Answer 2

procedure TForm1.N2DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  if (sender as tmenuitem).checked then
    acanvas.Font.style:=[fsbold];
  if not selected then
  with acanvas do
  begin
    brush.color:=$00E7DFE7;
    FillRect(arect);
    imagelist1.draw(Acanvas,arect.left+2,arect.top+2,
                    (sender as tmenuitem).imageindex,true);
    textout(arect.left+30,arect.top+7,(sender as tmenuitem).caption);
  end
  else
  with acanvas do
  begin
    brush.color:=$00EFD7D6;
    FillRect(arect);
    brush.style:=bsclear;
    rectangle(arect);
    imagelist1.draw(Acanvas,arect.left+2,arect.top+2,
                    (sender as tmenuitem).imageindex,true);
    textout(arect.left+30,arect.top+7,(sender as tmenuitem).caption);
  end;
end;把菜单的ownerdraw设为true