在delphi中tpopumenu的默认字体是什么？

Question

我正在Rad Studio XE2中执行一个程序，它最小化了一个trayicon。 我发现TPopMenu的字体和TTrayicon的气球取决于操作系统是完全不同的（我已尝试过Windows 7和windows xp）。

我认为它可能是Application.DefaultFont，并编辑它以启动，但没有。你知道来源吗？

procedure TForm_Principal.FormCreate(Sender: TObject);
begin
    Application.DefaultFont.Name := 'Tahoma';
end;    

Answer 1

AFAIK，菜单项的字体取自Screen.MenuFont。