delphi 怎么更改 button 和 label 的字体？

两种方法, 一种直接液神在空间的属性栏里面修雀埋饥改

另外一种就是使用程序修改

比如button的字体改成tahoma

Button.Font.Name := 'Tahoma'

label的修改也一样

Label.Font.Name := '宋体'顷返

首先 要改界面 需要有源码

dfm只是窗毁裂体文件

里面的确有界面上某些文字 比如说渗余如 #25163#26426#21495 锯是3个中文字

但要运行编译的话 只有exe dfm dll是不够的 还要工程文件 dpr文件 单元文件pas文件之类

才能编译成新的exe

另外 用eXeScope之类的可以直接修改程序里的文字 一般用来做汉化软件

你丛启拿来改文字自然也可以

这个问题，可以借用 delphi 语言里的 TStringList 类来解决，相对代码要简单一些，因为要达到的要求也不复杂。

试编写代码示例如下：

procedure TForm1.Button1Click(Sender: TObject)

var

  txt: TStringList

  i: Integer

  str,str1,str2: string

begin

  txt := TStringList.Create

  txt.LoadFromFile('e:\test.txt')

  i := Pos('#',txt[0])

  if i>0 then

  begin

   弯橘 str1 := Copy(txt[0],0,i-1)

    txt[0] := str1 + '修改埋局团后的内容'

    txt.SaveToFile('e:\test1.txt')

  end

end

运行结果截图腊世：

---