怎么改变菜单栏的颜色？

Question

怎么改变菜单栏的颜色？使它与背景的颜色一样。

Answer 1

OwnerDraw设为true后
在DrawItem事件中想怎么画就怎么画

Answer 2

XPMENU 是什么东东，我怎么找不到！

Answer 3

procedure TForm1.Open1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  if Selected then
    begin
      Acanvas.Brush.Color:=clblue;
      ACanvas.Font.Color:=clWhite;
    end
  else
    begin
      Acanvas.Brush.Color:=clbtnface;
      ACanvas.Font.Color:=clBlack;
    end;
  ACanvas.FillRect(Arect);
  ACanvas.TextOut(Arect.Left+10,Arect.Top+2,TMenuItem(Sender).Caption);
end;