5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zjhydx98 2003-02-08
- 打赏
- 举报
var
i:word;
for i:=0 to componentcount-1 do
begin
if components[i] is TDbedit then
TDBedit(components[i]).ReadOnly:=false;
end;
i:word;
for i:=0 to componentcount-1 do
begin
if components[i] is TDbedit then
TDBedit(components[i]).ReadOnly:=false;
end;
wx1452 2003-02-08
- 打赏
- 举报
要干什么，说得明白点
好吗
好吗
goomoo 2003-02-08
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
form1.Components[i].....
end;
end;
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
form1.Components[i].....
end;
end;
