如何一次过让程序里面所有的form的字体都为宋体

Question

能做到吗

Answer 1

把设好后的form存为一个类窗体，然后其它的form都从这个继承.....

Answer 2

//...
  private
    procedure ScreenActiveFormChange(Sender: TObject);
  end;
//...
implementation
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := ScreenActiveFormChange;
end;procedure TForm1.ScreenActiveFormChange(Sender: TObject);
begin
  if not Assigned(TScreen(Sender).ActiveForm) then Exit;
  TScreen(Sender).ActiveForm.Font.Name := '宋体';
  TScreen(Sender).ActiveForm.Font.Size := 9;
  TScreen(Sender).ActiveForm.Font.Color := clBlue;
end;procedure TForm1.Button1Click(Sender: TObject);
begin //try
  ShowMessage('宋体');
end;
//...

Answer 3

可以试试Ctrl+A，然后F11选择Font不就行了。

Answer 4

记住下次在Form中添加其它控件前先将其Font 属性设置好。
这样新添加的控件的Font 就默认与Form相同了。