怎么改变菜单栏的颜色？

[WBaby]

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

[zwt00]

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

[WBaby]

楼上的，能不能给个例子代码。是填充颜色。

[nhjoy]

用XPMENU最方便。

[WBaby]

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

[zwt00]

告诉我邮箱我发给你啊

[zwt00]

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;

[blazingfire]

写自画事件，不要老是问这个问题了，找本书看看吧，不难的！