改变菜单字体

 

procedure TForm1.FormCreate(Sender: TObject);
begin

     //在LISTBOX 中载入字体
    Lst1.Items:=Screen.Fonts;
    self.MainMenu1.AutoHotkeys:=maManual;
    self.MainMenu1.AutoLineReduction:=maManual;

   //菜单字体
    Screen.MenuFont.Size:=10;
end;

procedure TForm1.lst1Click(Sender: TObject);
begin
    Screen.MenuFont.Name:=Lst1.Items[Lst1.ItemIndex];
    FlashWindow(self.Handle,FALSE);
end;

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/23/1419642.html