Nil e action:=caFree; excesão?
07/08/2004
0
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?
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?
Flavia_mococa
Curtir tópico
+ 0
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);
Não vi quer era Show...
No evento OnClose coloque
FreeAndNil(FrmSobre);
Responder
Clique aqui para fazer login e interagir na Comunidade :)