rgstuamigo y look :
Pues algo sigue estando raro con mi codigo, voy a checarlo bien.
Mientras probé de esta manera a ver que opinan:
Código Delphi
[-]
procedure TForm_principal.btnAbrirClick(Sender: TObject);
var
i:integer;
existe:Boolean;
begin
existe:=False;
for i := 0 to (Screen.FormCount - 1) do
if Screen.Forms[i].Name = 'Form_Prueba' then begin
existe:=True;
break;
end;
if not existe then begin
Application.CreateForm(TForm_Prueba, Form_Prueba);
Form_Prueba.Show;
end else begin
if Form_Prueba.WindowState <> wsNormal then
Form_Prueba.WindowState := wsNormal;
Form_prueba.SetFocus ;
end;
end;
Y desde el Form_Prueba puedo cerrar de las siguientes maneras sin ningun error hasta el momento:
Código Delphi
[-]
procedure TForm_Prueba.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm_Prueba.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
release;
end;
De esta forma le ven algún detalle que se me escape???
Con la forma que me recomendaron aun sigo checando si el problema es con la validación:
if not Assigned()
o con la llamada
Close desde el evento
OnClick del Boton.
Muchas gracias de verdad por su tiempo y comentarios.