блокировка вызова 2-го экземпляра формы из dll

[Roof]

в моей программе я вызываю форму из dll Так вот, нажимаю на кнопку вызов - форма вызывается. нажимаю еще раз - еще раз вызывается. И так можно вызывать и вызывать одну и ту же форму причем не важно открыта она уже или нет. Получается куча форм.
Вопрос в том, как сделать так чтобы форма не вызывалась из dll, если она уже открыта. Чтобы просто этой самой форме (которая вызвана из dll) передавался фокус. Если закрыта - то вызываем форму из dll, если уже открыта, то передаем ей фокус и все.
ShowModal не предлагать.
Исходник прилагается

Mainn.dpr - проект основного приложения.
libr.dpr - проект библиотеки.
Unit1.pas - модуль с формой, которую загружаю в dll.

[alexBlack]

Экспортировать еще одну функцию

function isFormShow : boolean; 
begin
   result := Form1 <> nil;
   if result then Form1.SetFocus;
end;

и проверять при создании формы

procedure TForm1.Button1Click(Sender: TObject);
begin
   if not isFormShow then  ShowForm(Application.Handle, Self.Handle);
end;

[Roof]

да работает, но только для одного раза Когда втрой раз вызываешь форму из dll, то генерируется ошибка.
Попробовал дополнить функцию, но все равно только для одного вызова формы из dll. Второй раз она уже не вызывается.

function isFormShow : boolean;
begin
   result := Form1 <> nil;
   if result then Form1.SetFocus;

   if not result then begin
     Form1:=TForm1.Create(Application);
     Form1.Show;
   end;
end;

[Minimus]

Уважаемый Roof: - если я правильно понял вопрос, то можно попробовать с помощью какого-нибудь признака существования формы, например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

   function ShowModalForm: Integer;
   procedure ShowForm;   
   procedure FreeForm;   
  
var
  Form1: TForm1;   
  IsFormExist:boolean = false; //признак существования формы   
  
implementation   
  
{$R *.dfm}
  
function ShowModalForm:Integer;   
begin   
 Result:=0;   
 if IsFormExist then exit; //если форма существует - ничего не делаем   
 Form1:= TForm1.Create(nil); //форме не нужен Owner!!!   
 IsFormExist:=true;   
 Result := Form1.ShowModal;
 Form1.Free;
 IsFormExist:=false; //обозначаем отсутствие существования формы   
end;   

procedure ShowForm;   //Нафиг ей не нужны никакие хандлы!   
begin   
 if IsFormExist then
 begin
  ShowWindow(Form1.Handle,SW_RESTORE);
  SetForegroundWindow(Form1.Handle);
  exit; //если форма существует - ничего не делаем
 end;
 Form1:=TForm1.Create(nil); //форме не нужен Owner!!!
 IsFormExist:=true;
 Form1.Show;
end;   
  
procedure FreeForm;   
begin   
 Form1.Free;
 IsFormExist:=false; //обозначаем отсутствие существования формы   
end;   
  
procedure TForm1.Button1Click(Sender: TObject);   
var
a: string;   
begin   
a:= 'Hello!';   
Label1.Caption:= a;
end;   
  
procedure TForm1.FormDestroy(Sender: TObject);   
begin   
  IsFormExist:=false;   
end;   
  
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Free; //при закрытии формы мы ее ДОЛЖНЫ принудительно разрушить!
end;   
  
end.

ЗЫ: не забудь изменить модуль Main.pas - т.к. изменилась функция ShowForm.
ЗЫ2:без обработки OnClose не произойдет событие OnDestroy, т.к. закрытие формы еще не означает ее разрушение.

[alexBlack]

Сообщение от Roof

да работает, но только для одного раза Когда втрой раз вызываешь форму из dll, то генерируется ошибка.
Попробовал дополнить функцию, но все равно только для одного вызова формы из dll. Второй раз она уже не вызывается.

В Вашем коде:

procedure FreeForm;
begin
    Form1.Free;
    Form1 := nil; // !!!
end;

[Alter]

Ещё есть

FreeAndNil(Form1);

[Roof]

добавил в модуль формы из dll процедуру

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(Form1);
end;

Теперь все работает
2 Minimus - спасиб, разобрался в коде. Комментарии очень кстати
Всем спасибо за помощь. Вопрос решен