得单问题,如何改变mainMenu组件的颜色啊?

Question

得单问题,如何改变mainMenu组件的颜色啊? 就是改动主菜单条的颜色?

Answer 1

在TMenuItem的OnDrawItem事件中写程序

Answer 2

'''  TMenuItemE=class(TMenuItem);
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.N23231DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
   ACanvas.Brush.Color:=clred;
   ACAnvas.FillRect(ARect);
   TMenuItemE(Sender).DoDrawText(ACanvas,TMenuItemE(Sender).Caption,ARect,Selected,0);end;TMainMenu的OwnerDraw设为True;
要将其完善，还要花些功夫，可以下载控件