DLL show窗 提示错误！

[w5750584]

dll里面是

library Project1;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
procedure aaa();
begin
  form1.Show;
end;
exports
aaa;
begin
end.

exe里面是

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure aaa();
external 'Project1.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
  aaa;
end;

end.

提示错误 怎么修改 各位大哥帮看看

[lichy163]

library Project1;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
procedure aaa();
begin
form1.Show;
end;
exports
aaa;
//不明白你在这里加begin那么end在什么地方呢
end.

[w5750584]

.....
begin
end.

[w5750584]

我只要能吧dll里面的那个 Unit1 in 'Unit1.pas' {Form1}; 给show出来就OK了

[僵哥]

检查窗体是否创建实例,建议在aaa过程当中创建并使用ShowModule代替Show结束后Free掉.

[五维思考]

library Project1;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
procedure aaa();
begin
  form1:=Tform1.Create(nil);
  form1.ShowModule;
end;
exports
aaa;
begin
end.

[僵哥]

To 5楼,记得Free

[w5750584]

谢谢各位