如何改变把菜单的字体????

Question

如何改变把菜单的字体????

Answer 1

在MenuItem的OnDrawItem事件里面写

Answer 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;