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

如何让TFontDialog.Font打开时显示的是指定控件的字体呢? 问题点数：15、回复次数：6Top

1 楼newyj（吴刚ｖｓ西西弗）回复于 2001-07-31 17:46:23 得分 0

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

2 楼chechy（www.qdocuments.net）回复于 2001-07-31 17:46:46 得分 0

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

3 楼fang_feng（方）回复于 2001-07-31 17:58:57 得分 0

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

4 楼flypuma（飞豹）回复于 2001-07-31 18:07:32 得分 0

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

5 楼chechy（www.qdocuments.net）回复于 2001-07-31 18:15:29 得分 15

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

6 楼ExitWindows（void）回复于 2001-08-01 02:22:51 得分 0

upTop

相关问题

• 控件
• fontdialog
• yourfont
• 赋值
• font
• assign
• execute
• label
• then begin
• form

• 帖主：fang_feng
• chechy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载