如何改变菜单的字体大小

Question

各位大虾，能告诉我如何改变菜单（menu）的字体大小吗？

Answer 1

DELPHI下，用它自带的是不行的。
好像COOLMENU可以

Answer 2

度取
function GetMenuFontSize: Integer; 
var 
  ncm: TNonClientMetrics; 
  PixelsPerInch: integer; 
begin 
  ncm.cbSize := sizeof(TNonClientMetrics); 
  SystemParametersInfo( 
    SPI_GETNONCLIENTMETRICS, 
    sizeof(NONCLIENTMETRICS), 
    @ncm, 
    SPIF_UPDATEINIFILE 
  ); 
  PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY); 
  Result := -MulDiv(ncm.lfMenuFont.lfHeight, 72, PixelsPerInch); 
end; 设置
procedure SetMenuFontSize(FontSize: Integer); 
var 
  ncm: TNonClientMetrics; 
  PixelsPerInch: Integer; 
begin 
  ncm.cbSize := sizeof(TNonClientMetrics); 
  SystemParametersInfo( 
    SPI_GETNONCLIENTMETRICS, 
    sizeof(NONCLIENTMETRICS), 
    @ncm, 
    0 
  );   PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY); 
  ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72);   SystemParametersInfo( 
    SPI_SETNONCLIENTMETRICS, 
    sizeof(NONCLIENTMETRICS), 
    @ncm, 
    SPIF_UPDATEINIFILE 
  ); 
end;