在看一个源代码，搞不懂是什么意思……

[moonet]

for i := 1 to 6 do
begin
TPanel(SubControls[i].SubSet).Visible := i <= PageL;
end;

代码如上，由于我多面向对象技术了解不多，平时用panel就是panel1,panel2的用，看见这段代码就不懂了，运行时发现SubControls[i].SubSet是很大的随机数来的。请大家告诉我(SubControls[i].SubSet)到底是干什么的？？？

[moonet]

看程序开头：
type TSubControl = record //
SubSet: longint;
name: Longint;
TMP: longint;
Mst: longint;
ValveNew: Longint;
ValveBack: Longint;
Valvehot: Longint;
Valvecool: Longint;
Valveback2: Longint;
ValveSteam: Longint;
ValveFan: Longint;
Auto: longint;
end;

SubControls[i].SubSet是自定义的，我不明白的就是TPanel后面带括号代表什么？？？怎么使用？？？

[Crazy_ing]

强制类型转换

[liang_z]

SubSet应该是一个TPanel控件的句柄，即：Handle
这儿也许是定义了一个TPanel控件数组。

[星之瀚海]

关注

[liang_z]

SubControls[i].SubSet是自定义的，我不明白的就是TPanel后面带括号代表什么？？？怎么使用？？？

带括号表示类型的强制转换！

[liang_z]

不过说是Longint能转换为一个TPanel，我倒也没有用过！

[moonet]

说道句柄我就明白点了，谢谢楼上的各位~~~

[lxpbuaa]

SubControls表示TSubControl记录类型的集合。
其中SubSet（longint）代表一个TPanel的句柄。
TPanel(SubControls[i].SubSet)表示将集合SubControls的第i+1个元素转化为TPanel。


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————


　　　　　　　

[eulb]

是handle？
那么SubSet为什么要声明成longint而不是THandle？
关注

[光明山人]

是这样的，那个程序把控件对象(指针)转换成整数放在SubSet分量中，然后又通过强制类型转换(TPanel(xxx))转换回来。其实SubSet不是TPanel也能执行成功，只要SubSet中是一个TControl派生类的对象指针转换的值。因为Visible属性是TControl定义的，而TPanel是TControl的派生类。

[silvermine]

强烈建议楼主把源代码贴上来，太大的话发到我的信箱也行啊！！！[e-mail]

[Colda]

奇怪，关注