Form in Dll

[Azizas]

Есть некая библиотека ,которая погружается в АП браузера и фильтрует запросы .Когда обнаружен запрос на запрещенный сайт должна выводится форма ,которая оповещает пользователя ,что ресурс запрещен администратором .
Проблема в том,что когда форма создается браузер закрывается
Код создания и завершения формы.

unit WDForm;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  procedure CreateMyForm; 
  
implementation

{$R *.dfm}
{

procedure CreateMyForm;
begin
if not Assigned(Form1) then
begin
Form1:=TForm1.Create(nil);
end;
Form1.Show;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

end.

В чем соль?

[3D Hunter]

убери пременную формы из модуля, в обработчике onClose вставь строку action:=caFree; ну и перепеши конструктор, т.к. непонятно зачем там параметр AppHandle, если не используется в процедуре. измени тип параметра с thandle на tobject. кажется, у конструктора формы параметр таого типа, если память не изменяет. и уж тогда лучше так писать в твоей процедуре:
with tform1.create(AppHandle) do showmodal;
при закрытии форма самоуничтожится и почистит за собой память. все должно быть проще

[Кольша]

Можно увидеть как ты отслеживаешь?

[Azizas]

Сообщение от 3D Hunter

убери пременную формы из модуля, в обработчике onClose вставь строку action:=caFree; ну и перепеши конструктор, т.к. непонятно зачем там параметр AppHandle, если не используется в процедуре. измени тип параметра с thandle на tobject. кажется, у конструктора формы параметр таого типа, если память не изменяет. и уж тогда лучше так писать в твоей процедуре:
with tform1.create(AppHandle) do showmodal;
при закрытии форма самоуничтожится и почистит за собой память. все должно быть проще

Лишний параметр ,забыл удалить вместе с закомментированными участками кода. Первоначально код выглядел вот так:

procedure CreateMyForm(AppHandle:THandle);
begin
if not Assigned(Form1) then
begin
Application.Handle:=AppHandle;
Form1:=TForm1.Create(Application);
end;
Form1.Show;
end;

Но я посчитал ,что передача в длл хендла основного приложения будет излишней.

[3D Hunter]

да здесь параметр вообще не нужен вы не в длл передаете, вы из длл вызываете метод в контексте приложения. разницу улавливаете? поэтому объект application как минимум будет доступен в качестве родителя для созданной формы. только чтобы длл понимала что такое application, в uses нужно добавить модуль forms, а вашу экспортируемую процедуру оформить так:
procedure CreateMyForm(AOwner: TObject);
begin
with tform1.create(AOwner) do ShowModal;
end;

[Кольша]

Уважаемый AlexGorVlad, из за вас у меня "засрана" вся почта, и личный кабинет.
Если вы не прекратите, я не поленюсь, и "засру" вашу "сраную" биржу вместе с партнеркой.
С уважением Кольша.