delphi6.0自带的菜单能改变字体的大小吗？

delphi自带的菜单能不能随意改变大小，拖，拽！
   它太死了吧！

解决方案 »

  1.   

    不知道，是否用Open Tool API可以自己写个功能？
      

  2.   

    设置popupmenu1.owner:=true;
    在popupmenu1的MenuItem的OnDrawItem事件里面写，procedure TForm1.ddddddddd1DrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
    begin
        ACanvas.Font.Name := '宋体';
      ACanvas.Font.Size := 12;
      ACanvas.TextOut(ARect.Left,ARect.Top,TMenuItem(Sender).Caption);
    end;procedure TForm1.ddddddddd1MeasureItem(Sender: TObject; ACanvas: TCanvas;
      var Width, Height: Integer);
    begin
      width:=ACanvas.TextWidth(TMenuItem(Sender).Caption)+10;
    end;
      

  3.   

    老大啊，他要的是DELPHI的IDE自己带的菜单啊！
      

  4.   

    对呀，我说的是mainmenu里的字体呀！
      

  5.   

    一样的，重绘菜单，设置mainmenu.owner:=true;在mainmenu的MenuItem的OnDrawItem事件里写