Fórum Dar nil em Form #300788

Olá,

Estou tendo um problema para dar um nil em uma instância de um Form.

Tenho as seguintes units em meu projeto: Unit1 e Unit2.

[b:c07ce78684]Unit1:[/b:c07ce78684]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton5: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses
Unit2;

var
formx, formy: TForm2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
formx := TForm2.Create(Self);
formx.Show;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
formy := TForm2.Create(Self);
formy.Show;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if Assigned(formx) then
ShowMessage(´formx´);

if Assigned(formy) then
ShowMessage(´formy´);
end;


[b:c07ce78684]Unit2:[/b:c07ce78684]

unit Unit2;

interface

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

type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

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

procedure TForm2.FormShow(Sender: TObject);
begin
Caption := Name;
end;

end.


Reparem q estou usando Self := nil para dar o nil nela, pois quero que o nil seja dado nas variáveis que estão na Unit1, tanto formx quanto formy. Mas isso não ocorre, ele não deixa as variáveis como nil. Re

Reparem também que não estou usando o nome interno do formulário, ou seja form2, estou usando formx e formy. Preciso disso, pois preciso chamar do mesmo formulário aberto várias vezes tendo comportamentos diferentes em cada chamada, sem um interferir no outro.

Como eu faço isso para dar o nil na variável formx e formy sem ter que colocar diretamente ´formx := nil´??

Alguém tem alguma idéia de como posso fazer isso automaticamente através da Unit2??

Obrigado