能否用一两条语句将一个FORM上所有的TEDIT控件的READONLY设置成TRUE？(0分)

tqz · 1999-08-02

for i:= Controls.Count-1do
if Controls is TLabel then

(Controls as TLabel).ReadOnly:=true;

tqz · 1999-08-02

才发现是0分，亏了...

SeaSky · 1999-08-02

Var i:integer ;
begin
for i:= 0 to ComponentCount-1do
if Components is Tedit then
(Components as Tedit).readonly := true ;

SeaSky · 1999-08-02

Tqz : 挺快的,

seasky : 太慢了

(

link · 1999-08-02

对初学者有用，谢谢tgz!
for i:= Controls.Count-1do
有误.

tqz · 1999-08-02

Sorry,是ControlCount