Question

delphi下拉菜单字体怎么设置

Answer 1

将菜单的的OwnerDraw为True
然后自定义重绘事件，就可以了，代码如下：
procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
begin
ACanvas.FillRect(ARect);
ACanvas.Font.Size:=15;//设置为足够大的字号
ACanvas.Font.Name:='仿宋';//设置为败首你喜欢的字体
//输出菜行枯段单项档誉
ACanvas.TextOut(ARect.Left,ARect.Top,(Sender as TMenuItem).Caption);
end;