ControlCount
Controls
ComponentCount
Components
TComponent.Classname
TComponent.[..]
以及TComponent的其他一些类方法.
解决方案 »
- 关于Exit无法退出的问题!!
- 汉字写入.DBF时碰到的问题
- 一個用printers畫布打印問題?高手請進,分不夠可發再加!!!
- 文件位置居然与盘符无关? 求高人解答!(100)
- 如何将一串字符(带+、-、%等字符)转换成在http协议中可以进行传送的字符,D7前TNMURL中的函数可以实现,现在没有了,有其他控件吗
- 强烈迷惑:IntraWeb 和asp/asp.net,jsp或php相比有什么优势.
- 急!Record/key deleted错误原因?
- 远程开机的方法?
- CSDN奇慢无比,强烈要求扩容!
- 如果我想从文本文件中把记录提出来,用TListView好呢,还是用TStringGrid好?
- 没人会? ??如何把整型的值付给一个指针?
- 请问如何用DELPHI中创建一个ACCESS数据库及哪里可以下载"installshield for delphi5"
用Form1.Controls[Index]可以访问所有FORM1中的控件。
常规的方法是不行的,我试过多种方法.还是不行.一句话不是高手是不可能解决的,很希望有人能提出建议
象你这样直接把DLL中的一个窗口放在Panel上,就要自己时刻小心,不要发生
什么释放了不该释放的资源等等问题,祝你好运。你的问题和你后来的描述似乎根本就文不对题。var
i: Integer;
comp: Tcomponent;
parentclass: TClass; for i := 0 to Form1.ComponentCount - 1 do
begin
Comp := Form1.Components[i];
//可用的方法如下:
ShowMessage(Comp.ClassName);
ShowMessage(Comp.Name);
ParentClass := Comp.ClassParent;
while not(ParentClass is TClass) do
begin
ShowMessage(ParentClass.Classname);
ParentClass := ParentClass.ClassParent;
end;
if Comp is TWinControl then
ShowMessage(TWinControl(Comp).Handle);
...
end;