procedure tfrmmain.clearcontrols(aparent: twincontrol);
var i: integer;
begin
for i := aparent.controlcount - 1 downto 0 do begin
if not aparent.controls[i].inheritsfrom(twincontrol) then continue;
tryif twincontrol(aparent.controls[i]).controlcount > 0 then begin
clearcontrols(twincontrol(aparent.controls[i]));
end;
aparent.controls[i].free;
except
end;
end;
end;
WPF中查詢子控制項 父控制項的方法
查詢指定型別的子控制項 子控制項型別 父控制項 public static childitem findvisualchild dependencyobject obj where childitem dependencyobject return null 查詢某種型別的子控制項,並返回乙個lis...
在delphi中ocx控制項的安裝
第一步 使用過activex的人都知道,activex不註冊是不能夠被系統識別和使用的,一般安裝程式都會自動地把它所使用的activex控制項註冊,但如果你拿到的乙個控制項需要手動註冊怎麼辦呢?如果修改登錄檔那就太麻煩了,在windows的system資料夾下有乙個regsvr32.exe的程式,它...
在delphi中ocx控制項的安裝
第一步 使用過activex的人都知道,activex不註冊是不能夠被系統識別和使用的,一般安裝程式都會自動地把它所使用的activex控制項註冊,但如果你拿到的乙個控制項需要手動註冊怎麼辦呢?如果修改登錄檔那就太麻煩了,在windows的system資料夾下有乙個regsvr32.exe的程式,它...