【文件属性】：
文件名称：Delphi 实现类的转形.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 12:37:27
Delphi源码-其它类别
Delphi 实现类的转形，将类定义为可用和不可用：
procedure TForm1.SetEnable(Enable: Boolean);
var
i:Integer;
begin
for i:=0 to Self.ComponentCount-1 do
begin
if Self.Components[i] is TEdit then
(Self.Components[i] as TEdit).Enabled := Enable;
end;
end;
定义类可用：
procedure TForm1.Button1Click(Sender: TObject);
begin
SetEnable(True);
end;
定义类不可用：
procedure TForm1.Button2Click(Sender: TObject);
begin
SetEnable(False);
end;
【文件预览】：
codesc.net
----类()
--------Project1.res(876B)
--------Unit1.dcu(4KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)