請教如何讓一個窗体上的所有文本框只讀(在代碼中控制)

Question

請教如何讓一個窗体上的所有文本框只讀(在代碼中控制)

Answer 1

XXX.Enabled := false;            ????

Answer 2

循环???好像不行吧
readonly:=true;

Answer 3

可以把这些文本框放在一个panel中,直接指定panel.enabled:=false;就行了呀,还要做什么循环吗?更省事,循环要占资源的

Answer 4

var
  i:integer;
For i:=0 to ComponentCount-1 do
  if Components[i] is TEdit then TEdit(Components[i]).Enabled:=false;