RT,能将某窗体所包含的所有WinControl列出
急用,在线等,多谢!
急用,在线等,多谢!
解决方案 »
- 进程枚举
- 如何 使用dbexpress页 下的SimpleDataSet1
- 收购DELPHI二手教学书~~
- 我怎样才能用datetimepicker将时间插入数据表中呢??
- 我用的中文WIN2000,但是目标系统确是英文2000,如何做出能运行在上面的程序,up有分
- ★★如何计算π的值并使其不受数据类型精度的限制?(请给出具体的程序源码)
- 关于acrobat sdk问题
- QuickRep中布尔型字段的显示问题
- 有谁用过Search Maker pro 2.1并知道注册码?或能提供类似的软件.[Search Maker Pro可以自动搜索一个网站,对所有页面进行索引,然后生成
- 关于控件重画的问题
- 请教:模糊查询的问题
- 谁能解释下“stream read error”错误
begin
for i:=0 to ControlCount-1 do
if Controls[i] is TWinControl then
ShowMessage(Controls[i].Name);
end;
var
I: Integer;
begin
if Assigned(ACtrl) and Assigned(AList) then
for I := 0 to ACtrl.ControlCount - 1 do
begin
if ACtrl.Controls[I] is TWinControl then
begin
AList.Add(ACtrl.Controls[I].classname);
AddControl(TWinControl(ACtrl.Controls[I]), AList)
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
AddControl(Self, ListBox1.items)
end;