delphi form上右键的text dfm 在代码中怎么设置

form上右键的text dfm 这个如何在代码里面实现这个功能

解决方案 »

  1.   

    设计时把dfm转为文本格式？
    好像有个不同版本的dfm格式转换工具，应该是使用了这个功能
      

  2.   

    可是我不能用工具啊 只能用代码来实现 因为我要长期操作那个 form每次操作完都需要修改 text dfm
      

  3.   

    dfm就是一个文本文件，只是后缀是dfm而已，如果你不是新增或者删除控件，你可以用TStringList将dfm读进来修改你要修改的地方，如果你是要新增或者删除控件，则一并要修改pas文件
      

  4.   


    修改属性没问题，比如
    原本：Font.Height = -11
    我用TStringList读出来修改为Font.Height = -12，然后再保存回dfm就可以了但如果是删除和新增一个控件，那么也要将pas文件读出来同步修改
      

  5.   

    TReader,TWriter
    ReadComponentResFile,writeComponentResFile
    ObjectTextToBinary ,ObjectBinaryToText