Delphi中釋放父控制項裡的所有子控制項

2021-06-02 07:35:29 字數 482 閱讀 8076

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的程式,它...