Tanto na aplicação quanto na DLL vc precisa declarar um tipo procedure, ex:

type
TMinhaProcedure = procedure(Parametro: string);

Na aplicação crie sua procedure normalmente (tem que ter a mesma assinatura do tipo acima, ex:

procedure ProcedureAplicacao(Parametro: string);
begin
ShowMessage(Parametro);
end;

criar um “set” na DLL (uma procedure que irá passar o ponteiro da procedure da aplicação)

var
DLLMinhaProcedure: TMinhaProcedure;

procedure SetMinhaProcedure(AMinhaProcedure: TMinhaProcedure);
begin
DLLMinhaProcedure := AMinhaProcedure;
end;

Na aplicação, em algum momento vc tem que chamar este Set da DLL passando a procedure da aplicação como parâmetro:

SetMinhaProcedure(ProcedureAplicacao);

Agora na DLL, quando quiser chamar a “ProcedureAplicacao”, basta chamar:

if Assigned(DLLMinhaProcedure) then
DLLMinhaProcedure(‘Olá Mundo!’);

Perceba que eu não utilizei ponteiros neste exemplo… É o poder do Pascal.

Adotei!
Abraços!

Este problema irá ocorrer com uso de ponteiro também.

Por isso, quando liberar o form, temos também que atribuir nil a referência, assim:

Form1.Free;
Form1 := nil;

ou simplesmente usar uma função disponível na unit SysUtils:

FreeAndNil(Form1);

Utilizando da segunda forma como você me disse, a variável Form do pCriaForm não seria a mesma variável que a Form1.
Nesse caso ela sempre comparará como Nil e criará um novo Form.
Faça o teste sem mandar destruir o Form ao fechar que você verá.

Para isso que estive procurando um bom exemplo de ponteiro como o seu.

Muito Obrigado!

type
PForm: ^TForm;

Procedure pCriaForm( Form : PForm ; FormClass : TFormClass ) ;
Begin

If ( Form^ = Nil ) Then
Form^ := FormClass.Create( Application ) ;
Form^.Show;

End;

e chama assim: pCriaForm( @Form1 , TForm1 );

Mas o mais simples nesse caso é não usar ponteiro:

Procedure pCriaForm(var Form : TForm ; FormClass : TFormClass ) ;
Begin

If ( Form = Nil ) Then
Form := FormClass.Create( Application ) ;
Form.Show;

End;

e chama assim: pCriaForm( Form1 , TForm1 );

o “var” indica que aquele parâmetro é por referência e não por valor, assim a alteração da variável dentro da procedure reflete na variável passada. Como disse nos artigos, apesar do Pascal ter manipulação de ponteiros, as vezes estes não são necessários.

Exemplo do quero fazer:

Procedure pCriaForm( Form : ^TForm ; FormClass : TFormClass ) ;
Begin

If ( Form^ = Nil ) Then
Form^ := FormClass.Create( Application ) ;
Form^.Show;

End;

Para chamar assim: pCriaForm( Form1 ; TForm1 );

Obrigado