如何解决如何将 popupparent 属性传递给 DLL
我将 popupparent 属性从程序传递给 DLL。
当对 DLL 调用两次时,程序会引发访问冲突。
这是我的dll代码:
library mydll;
uses
System.SysUtils,System.Classes,Vcl.Forms,umydllform in 'umydllform.pas' {FormDLL};
{$R *.res}
procedure myfunction(Parent: TCustomForm); stdcall;
var
A: TFormDLL;
begin
A := TFormDLL.Create(nil);
A.PopupMode := TPopupMode.pmAuto;
A.PopupParent := Parent;
A.ShowModal;
A.PopupParent := nil;
A.Free;
end;
exports
myfunction;
begin
end.
这是主要形式:
unit umainform;
interface
uses
Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,Vcl.Graphics,Vcl.Controls,Vcl.Dialogs,Vcl.StdCtrls;
type
TForm37 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form37: TForm37;
implementation
{$R *.dfm}
procedure TForm37.Button1Click(Sender: TObject);
type
Tmyfunction = procedure(AOwner: TCustomForm); stdcall;
var
H: HMODULE;
F: Tmyfunction;
begin
H := LoadLibrary(PChar('mydll.dll'));
@F := GetProcAddress(H,'myfunction');
F(Application.MainForm);
FreeLibrary(H);
end;
end.
程序第一次运行正常。 但是第二次执行dll时出现异常。 我需要分配弹出式父属性,以便表单不会被遗忘。
当不使用 FreeLibrary 时,程序可以正常运行两次或更多次。
最好的问候,
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。