怎样在DELPHI中改变菜单字体的大小？？？向高手请教！！！

Question

没有办法，除非你自己重栽着个控减，因为它是从TComponent来的，在
TComponent中没有字体属性，一般控件是从TControl来的，TControl是
TComponent的子类，在TControl中有字体的实现所以一般控件都有

Answer 1

在菜单项的OnDrawItem中自己写文字。

Answer 2

设置Menu的OnwerDraw属性为true写一个通用的过程给所有的菜单项
procedure TForm1.MenuDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
//设置字体
  ACanvas.Font.Size := 11;  if Selected then
//选中状态
  begin
    ACanvas.Brush.Color := clHighLight;
    ACanvas.Font.Color := clHighlightText;
  end else
//通常状态
  begin
    ACanvas.Brush.Color := clBtnFace
    ACanvas.Font.Color := clRed;
  end;
//写文字
  ACanvas.TextRect(ARect, ARect.Left + 1, ARect.Top + 1,
                   (Sender as TMenuItem).Caption);
end;
end;