Question

delphi里mainmenu 的文字大小等属性怎么改

Answer 1

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;