5,386
社区成员
发帖
与我相关
我的任务
分享
procedure SetPnlCtrl(Pnl:TPanel);
var i:integer;
begin
for i := 0 to Pnl.ControlCount-1 do
begin
if Pnl.Controls[i] is Edit Then
begin
...
end;
end;
end;
procedure EComponents(const x:integer=0);
var i,j:integer;
Panel:array of Tpanel;
begin
setlength(Panel,2);
Panel[0]:=Form1.Panel1;//假定 Panel1 在 Form1 中
Panel[1]:=Form1.Panel2;//假定 Panel2 在 Form1 中
for j:=0 to 1-x do begin
for i := 0 to Panel[j].ComponentCount-1 do begin
if Panel[j].Components[i] is TEdit then begin
if (Panel[j].Components[i] as TEdit).Properties.ReadOnly then begin
//......
end;
end;
end;
end;
end;
procedure EComponents(const x:integer=0);
var i,j:integer;
Panel:array of Tpanel;
begin
setlength(Panel,2);
Panel[0]:=Form1.Panel1;//假定 Panel1 在 Form1 中
Panel[1]:=Form1.Panel2;//假定 Panel2 在 Form1 中
for j:=0 to 1-x do begin
for i := 0 to Panel[j].ComponentCount-1 do begin
if Panel[j].Components[i] is TEdit then begin
if (Panel[j].Components[i] as TEdit).Properties.ReadOnly then
//......
end;
end;
end;
end;
end;