如何指定动态生成控件的parent属性(100分)

老莫 · 2001-03-06

我的程序里建立了一个动态的shape控件数组，现在需要动态创建一些新的对象，然后希望能
将这些新对象的parent属性指定为shape中的一个，由用户使用拖放的方式来确定应该放在哪
个shape容器里，应该如何做，请指教，谢谢。

林沐 · 2001-03-06

newobject.parent:=shape;
newobject.parentWindow:=shape.handle;

林沐 · 2001-03-06

可以用Tag来标明每个shape,
shape.tag=i;
等一下就
with sender as Tshape do
begin
if tag=j then
begin
...
end;
end;

johnliujun · 2001-03-06

with TShape.Create(self) do begin
parent:=....;
name:=...;
top:=...;
Left:=...;
end;

老莫 · 2001-03-07

林沐，你的方法是正确的，设置shape的tag属性，谢谢

老莫 · 2001-03-07

接受答案了.