5,386
社区成员
发帖
与我相关
我的任务
分享dll中动态创建控件问题
我做了一个dll，想在里面动态生成一个TEdit控件，代码如下
procedure Edit_Create( aParent:TWinControl );stdcall;
var
edit1 : TEdit;
begin
edit1 := TEdit.Create(aParent);
edit1.ParentFont := False;
edit1.Parent := aParent;
edit1.Left := 0;
edit1.Top := 0;
edit1.Width := 200;
edit1.Height := 100;
end;
在EXE的form中进行了调用
procedure TForm1.btn1Click(Sender: TObject);
begin
Edit_Create(self);
end;
但是调用后，Edit控件不能显示，而且退出报错。
---------------------------
Application Error
---------------------------
Exception EAccessViolation in module testdll.exe at 0001358E.
Access violation at address 0041358E in module 'testdll.exe'. Read of address 00000008.
如果在EXE中直接用以上代码动态创建则没有问题，求高手解答
procedure Edit_Create( aParent:TWinControl );stdcall;
var
edit1 : TEdit;
begin
edit1 := TEdit.Create(aParent);
edit1.ParentFont := False;
edit1.Parent := aParent;
edit1.Left := 0;
edit1.Top := 0;
edit1.Width := 200;
edit1.Height := 100;
end;
在EXE的form中进行了调用
procedure TForm1.btn1Click(Sender: TObject);
begin
Edit_Create(self);
end;
但是调用后，Edit控件不能显示，而且退出报错。
---------------------------
Application Error
---------------------------
Exception EAccessViolation in module testdll.exe at 0001358E.
Access violation at address 0041358E in module 'testdll.exe'. Read of address 00000008.
如果在EXE中直接用以上代码动态创建则没有问题，求高手解答
...全文
请发表友善的回复…
发表回复
pcwe2002 2011-05-31
- 打赏
- 举报
最后还是使用包，谢谢大家结贴
雄牛 2011-05-27
- 打赏
- 举报
路过。。友情UP
ltysunde 2011-05-27
- 打赏
- 举报
问题最后怎么解决的？
likeyrain 2011-05-27
- 打赏
- 举报
用DLL创建窗体和控件都没问题的，做过N多次了，能不能单调试一下，看是哪步报的错
pcwe2002 2011-05-25
- 打赏
- 举报
加上ShareMem也不起作用，有高手有兴趣可以试下。在dll中动态创建控件还是有用的。
SQLDebug_Fan 2011-05-25
- 打赏
- 举报
有没有加ShareMem？
pcwe2002 2011-05-25
- 打赏
- 举报
将application传递过去还是一样，不能显示，代码如下
procedure Edit_Create( App: TApplication; Scr: TScreen; aParent:TWinControl );stdcall;
var
edit1 : TEdit;
begin
Application := App;
Screen := Scr;
edit1 := TEdit.Create(aParent);
edit1.ParentFont := False;
edit1.Parent := aParent;
edit1.Left := 0;
edit1.Top := 0;
edit1.Width := 100;
end;
procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
if Assigned(DLLApp) then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;
end;
exports
Edit_Create,
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
procedure Edit_Create( App: TApplication; Scr: TScreen; aParent:TWinControl );stdcall;
var
edit1 : TEdit;
begin
Application := App;
Screen := Scr;
edit1 := TEdit.Create(aParent);
edit1.ParentFont := False;
edit1.Parent := aParent;
edit1.Left := 0;
edit1.Top := 0;
edit1.Width := 100;
end;
procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
if Assigned(DLLApp) then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;
end;
exports
Edit_Create,
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
bdmh 2011-05-25
- 打赏
- 举报
需要传递主窗体的application的句柄，然后退出时还要恢复，查查dll窗体融合吧
pcwe2002 2011-05-25
- 打赏
- 举报
不使用package能做到吗？
dfasri 2011-05-25
- 打赏
- 举报
还有, 编译的时候, 要选择dynamic package, 否则不能采用DLL划分的
dfasri 2011-05-25
- 打赏
- 举报
[Quote=引用 4 楼 pcwe2002 的回复:]
加上ShareMem也不起作用，有高手有兴趣可以试下。在dll中动态创建控件还是有用的。
[/Quote]
不知道你的代码是怎样写的, 我的整个工程所有子窗体都由DLL组成的, 都没有遇见你所说的情况.
Application是要传过去的, 但Screen不用, 传过去了就会造成Hints显示的错误.
还有一个问题
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
你写错了...应该是写在ExitDLL里面判断, Attach的时候保存, Exit的时候还原.
加上ShareMem也不起作用，有高手有兴趣可以试下。在dll中动态创建控件还是有用的。
[/Quote]
不知道你的代码是怎样写的, 我的整个工程所有子窗体都由DLL组成的, 都没有遇见你所说的情况.
Application是要传过去的, 但Screen不用, 传过去了就会造成Hints显示的错误.
还有一个问题
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
你写错了...应该是写在ExitDLL里面判断, Attach的时候保存, Exit的时候还原.
flcop 2011-05-25
- 打赏
- 举报
带包编译
pcwe2002 2011-05-25
- 打赏
- 举报
自己顶下。有哪位牛人知道呀，请指点下呀
