想找一个工程里的同一个类的控件怎么找?

Question

我要把一个工程里的比如TEdit的字体都设成16号,该怎么做?

Answer 1

这样就失去了面向对象编程的意义了 。先从TEdit继承一个子类，如：TMyEdit，然后所有的Edit控件都从 TMyEdit 继承，只要改改 TMyEdit 的属性，所有的 Edit 即改。

Answer 2

for i := 0 to Form1.components.count-1 do
  if components[i] is TEdit then
    components.font.size := 16;

Answer 3

for i := 0 to ComponentCount - 1 do
  FindComponent(Edit + IntToStr(i)).Font.Size := 16