字体设置用繁体delphi

题主是否想询问“字体设置用繁体delphi可以吗”？可以。Delphi被称为第四代编程语言，具有简单、高效、功能强大的特点，在字体设置的时候，可以选择使用繁体delphi，也可以使用简体delphi，都不影响使用，这两者可进行转换使用，delphi里的大多数继承有窗口类属性的控件，都可以通过Font属性来设置字体，字体的粗细可以如下设置。

一、设定memo组件的字体

可以添加一个 FontDialog 组件，用于显示 字体选择 对话框。

二、编写菜单代码

procedure TForm1.mniF1Click(Sender: TObject)

begin

  if dlgFont1.Execute then

  begin

    mmo1.Font := dlgFont1.Font

  end

  mmo1.ScrollBars := ssVertical

end

将菜单的的OwnerDraw为True

然后自定义重绘事件，就可以了，代码如下：

procedure TForm1.N1DrawItem(Sender: TObjectACanvas: TCanvasARect: 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

---