在Dll中动态生成Frame的问题，不解中......大侠们请帮一把
工作中需在Dll中动态生成一个窗体，在窗体的OnActivate事件中动态生成一个Frame嵌在其左部（Align＝AlLeft),但是系统提示：该Frame没有父窗口！（"SupplierStateFrame" Has No Parent Window),但是，在动态生成Frame的代码中，我指定其父属性了啊！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
TmpFrame:=TSupplierStateFrame.CreateParented(AForm.Handle);
With TSupplierStateFrame(TmpFrame) Do
Begin
OtherConditionPanel.Push;
SearchBtn_M.OnClick := SearchBtn.OnClick;
SelfADOQuery:=DMFrm.TmpMainADOQ;
GridFrame1.GridInfo.GridADOQ:=SelfADOQuery;
TmpFrame:=GridFrame1;
TmpMenuItem:=ShowOrHideLeftFramePM;
SelfADOQuery.AfterOpen:=TmpMainADOQDataAfterOpen;
ShowHideLeftFrameBtn.OnClick:=MySplitterMoved;
GetTreeObjectInfo;
SetCheckTreeState(True);
GetSupplierState_CLB(False);
Name:='TmpGridFrame';
// Parent:=Self;
Width:=176;
Align:=AlLeft;
Show;
Update;
End;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
问题点数：50、回复次数：8Top
1 楼yinweixian（blackyin）回复于 2004-09-03 08:40:09 得分 15
没有TmpFrame.Parent:=xxxTop
2 楼BlueSoftEye（紫衣侠隐）回复于 2004-09-03 14:16:13 得分 0
还有没有上来看看？Top
3 楼BlueSoftEye（紫衣侠隐）回复于 2004-09-03 16:28:06 得分 0
绝望？Top
4 楼Nozzle（早班火車）回复于 2004-09-03 16:49:16 得分 10
TmpFrame:=TSupplierStateFrame.CreateParented(AForm.Handle);
With TSupplierStateFrame(TmpFrame) Do
Begin
OtherConditionPanel.Push;
SearchBtn_M.OnClick := SearchBtn.OnClick;
SelfADOQuery:=DMFrm.TmpMainADOQ;
GridFrame1.GridInfo.GridADOQ:=SelfADOQuery;
TmpFrame:=GridFrame1;
TmpMenuItem:=ShowOrHideLeftFramePM;
SelfADOQuery.AfterOpen:=TmpMainADOQDataAfterOpen;
ShowHideLeftFrameBtn.OnClick:=MySplitterMoved;
GetTreeObjectInfo;
SetCheckTreeState(True);
GetSupplierState_CLB(False);
Name:='TmpGridFrame';
Parent:=AForm; ////////////////////
Width:=176;
Align:=AlLeft;
Show;
Update;
End;
－－－－－Top
5 楼budded（All By Myself）回复于 2004-09-03 17:45:25 得分 10
把 Parent:=AForm; 提前试试Top
6 楼Jeff20040819（美丽）回复于 2004-09-03 18:01:43 得分 10
学习，接分Top
7 楼BlueSoftEye（紫衣侠隐）回复于 2004-09-04 11:25:25 得分 0
不行，试过了！
何况，出错是在“TmpFrame:=TSupplierStateFrame.CreateParented(AForm.Handle)”
这儿出的错，好痛苦哦。
用“TmpFrame:=TSupplierStateFrame.Create(AForm.Handle)"也不行。
Top
8 楼yifei1900（逸飞）回复于 2004-09-04 15:12:55 得分 5
学习中。。。
认为xxx.Parent:=xxxTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
