文件名称: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)