取得所有容器中的控件~！？
见题 问题点数：100、回复次数：9Top
1 楼Bes96261（秋水孤鶩）回复于 2002-10-08 09:20:32 得分 20
可否遍历当前窗体的所有控件，根据控件的Parent来确定控件是否在指定的容器中Top
2 楼Drate（小虫(好好学习,天天向上)）回复于 2002-10-08 09:21:37 得分 20
var
i:integer;
Temp: TComponent;
begin
for i:=0 to form1.panel1.ComponentCount-1 do
begin
Temp :=form1.panel1.Components[I];
{...做你想要做的事}
end;
end;Top
3 楼HHBB（）回复于 2002-10-08 09:21:54 得分 20
FOR I:=0 TO CONTAINER.ControlCount-1 DO
SHOWMESSAGE(CONTAINER.Controls[I].NAME);Top
4 楼buchanren（逋蝉人）回复于 2002-10-08 09:35:19 得分 0
上面几位搂主，Controls,Components有什么区别Top
5 楼wanderung（※－－※）回复于 2002-10-08 09:35:20 得分 0
用递归函数实现如何？
各位有何高见~！Top
6 楼xzhifei（饭桶超人(最讨厌两种人，一种是有种族歧视的人，一种是日本人！)）回复于 2002-10-08 09:45:43 得分 10
var
i:integer;
begin
for i:=0 to Self.ComponentCount-1 do
begin
if Self.Components[I] is TEdit then
TEdit(Self.Components[I]).Text:='...';
if Self.Components[I] is TLabel then
TLabel(Self.Components[I]).Caption:='...';
{
......
}
end;
end;
================================================================
CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！
★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。
★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。
Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
Top
7 楼wanderung（※－－※）回复于 2002-10-08 10:00:59 得分 0
楼上这样做要判断各种控件，有些烦琐吧~！
推荐用递归，但是如何从一个控件的子控件来找上一层~！郁闷中。。。Top
8 楼xzhifei（饭桶超人(最讨厌两种人，一种是有种族歧视的人，一种是日本人！)）回复于 2002-10-08 10:06:05 得分 0
楼上的可以用控件的Parent属性得到
================================================================
我是中国鹰派！
拒绝日货！打倒小日本！Top
9 楼xiaoyan21（明月心）回复于 2002-10-10 07:49:12 得分 30
function ()
var i,jinteger;
begin
j:=0;
for i:=0 to form1.controlcount-1 do
begin
if form1.controls[i] is TEdit then
j:=j+1;
end;
end;
procedure TfrmOtherSearch.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if frmDM.ClientDataSetOther.RecNo mod 2=0 then
dbgrid1.canvas.brush.color:=clSkyBlue
else
dbgrid1.canvas.brush.color:=RGB(225,225,255);
dbgrid1.defaultdrawcolumncell(rect,datacol,column,state);
end;Top
