哪位高手能把mdi窗体中菜单项最上面的一行的颜色变掉？

Question

在自绘里面给菜单画，先画颜色，再画Caption。

Answer 1

把你的TMainMenu的OwnerDraw设为True;
再向每个菜单项的OnDrawItem事件中写代码就可以完成你想要的效果。

Answer 2

xpmenu变了之后，上面还有一个菜单啊，变成了两个菜单，不好看！

Answer 3

procedure TForm1.asdfasd1AdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
 ACanvas.Brush.Color:=clRed;
 ACanvas.Pen.Color:=clRed;
 ACanvas.Rectangle(ARect);
 ACanvas.TextRect(ARect,2,2,(Sender as TMenuItem).Caption);
end;