劳烦各位了,虽然简单我确是不会的

Question

FontDialog1.Font.Name :='华文中宋';

Answer 1

在Execute之前，赋值啊。
FontDialog1.Font := YourFont;
FontDialog1.Execute;

Answer 2

我是这样写的,结果还是不行.
 if Form1.b1 then
  begin
   FontDialog1.Font:=Form1.Label1.Font;
   if FontDialog1.Execute then
  begin
    Form1.Button1.Font:=FontDialog1.Font;
   ....

Answer 3

把赋值语句改成Assign试试看，象这样：
FontDialog1.Font.Assign(Form1.Label1.Font);

Answer 4

不对啊，我这里试的是正确的。
另
  FontDialog1.Font := YourFont;
效果和
  FontDialog1.Font.Assign(YourFont);
一样。这是写控件代码中保证的。