小问题请教大家一下

我在对字体颜色和字体大小设置的单击事件中，填写了以下代码，可是能运行，但是单击后就出错，帮忙修改一下，谢谢  
  procedure   TMainForm.Button3Click(Sender:   TObject);  
  begin  
            if(true=colordialog1.execute())then  
            begin  
                  filename:=colordialog1.GetNamePath;  
                  memo1.Lines.LoadFromFile(filename);  
            end;  
  end;  
   
  procedure   TMainForm.Button4Click(Sender:   TObject);  
  begin  
          if(true=fontdialog1.Execute())   then  
          begin  
              filename:=fontdialog1.MethodName(font);  
              memo1.Lines.LoadFromFile(filename);  
   
              end;  
      end; 问题点数：20、回复次数：4Top

1 楼sxy_9761（暗里着迷）回复于 2005-07-03 20:59:27 得分 15

不明白你这段代码要干什么  
  如果要得到选择的Color和Font可以这么干  
  if   ColorDialog1.Execute   then  
      Memo.Color   :=   ColorDialog1.Color;  
  if   FontDialog1.Execute   then  
      Memo.Font.Assign(FontDialog1.Font)Top

2 楼smiler007（笑一笑）回复于 2005-07-03 23:14:13 得分 5

if(true=colordialog1.execute())then  
  这写法改成  
   
  if   colordialog1.execute   then   ```Top

3 楼chenxingyuan（小员）回复于 2005-07-04 08:17:45 得分 0

象上面sxy_9761()Top

4 楼chenxingyuan（小员）回复于 2005-07-04 08:19:25 得分 0

象上面sxy_9761()所说的，只会把背景色改了，还有下面那个字体大小点击一下就出错了，请问这是什么原因呢？请帮忙！！Top

相关问题

• 字体
• colordialog
• fontdialog
• memo
• execute
• filename
• font
• then
• begin
• color

• 帖主：chenxingyuan
• sxy_9761
• smiler007

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