Código Delphi [-] procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:= caFree; end; procedure TForm.FormDestroy(Sender: TObject); begin Form:= nil; end;
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:= caFree; end; procedure TForm.FormDestroy(Sender: TObject); begin Form:= nil; end;