Nil e action:=caFree; excesão?

07/08/2004

1

Ola galera do forum,
Eu crio meus form´s em run time da seguinte forma:

procedure TFrmPrim.Sobre1Click(Sender: TObject);
begin
If (FrmSobre <> nil) then
FrmSobre.WindowState:= wsNormal
else
FrmSobre:= TFrmSobre.Create(self);
FrmSobre.Show;
end;

meus form´s são MDI. Ao clicar clicar em fechar (X), ele apenas minimiza. Tentei inserir o codigo action:= caFree no evento onclose do form mais ocorre um erro, como faço para solucionar este problema?


Responder

Posts

07/08/2004

G1b4

Tenta assim:

procedure TFrmPrim.Sobre1Click(Sender: TObject);
begin
If (FrmSobre <> nil) then
FrmSobre.WindowState:= wsNormal
else
FrmSobre:= TFrmSobre.Create(self);
FrmSobre.Show;
FreeAndNil(FrmSobre);
end; 



Responder

07/08/2004

G1b4

ops viajei...
Não vi quer era Show...
No evento OnClose coloque
FreeAndNil(FrmSobre);


Responder

07/08/2004

Flavia_mococa

Funcionar certinho, valeu :lol:
Obrigada!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira