7 respuestas en este tema

[abraham85]

hola gente....como estan?
bueno tengo un problema
resulta q se me ocurrio poner un boton para llamar a mi formulario...aparte de la q tengo en mi menu...
puse un bitbutton en mi bentana principal...abajo de mi menu.....y con una imagen mia....
entonces le pongo el mismo codigo q tengo en la llamada desde mi menu

delphi

FCarga:=TFCarga.Create(self);
   try
    FCarga.ShowModal;
 
   finally
    FCarga.Free;
   end;

y resulta  q cuando llamo a mi formulario desde mi menu... al cerrar mi formulario..lo hace correctamente
y me deja en la ventana principal para serguir trabajando...
pero cuando llamo a mi formulario desde mi boton...se abre mi formulario para trabajar....pero cuando
lo voy a cerrar....ya sea desde mi boton CERRAR o desde le X del form....
mi formulario se cierra....pero tambine me aparece el mensajito preguntandome si tambien quiero cerrar mi aplicacion 
no tendria q aparecer...al menos q yo quiero cerrar mi ventana principal...cosa que no stoy haciendo...
me fije si q tenia algun evento programado en mi FCARGA y solo tengo el createform y onshow
no entiendo amigos...alguna recomendacion? 

[egostar]

Hola

Intenta con NIL y dinos que pasa.

delphi

FCarga:=TFCarga.Create(nil);
try
   FCarga.ShowModal;
finally
   FCarga.Free;
end;

Salud OS

[abraham85]

nada che... lo mismo 

q hace ese parametro? 

[egostar]

nada che... lo mismo 

q hace ese parametro? 

Nil especifica que el objeto no tiene "dueño" y que es responsabilidad del desarrollador liberarlo con .free cuando ya no se utiliza.

Es raro, yo no tengo ese tipo de problemas.

Salud OS

[escafandra]

Algo mas tienes en tu código que es lo que afecta al resultado esperado. Tal como lo muestras, no siendo el formulario principal y siendo un formulario no autocreado, funciona a la perfección.

Saludos.

[abraham85]

mmm lo unico q me da pensar es este codigo  de mi form principal q tiene la pregunta cuando
quiere cerrar la aplicacion

delphi

procedure TFPrincipal.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := False;
  if(MessageBox(Handle, 'Realmente desea Cerrar la Aplicacion.?', 'Confirmacion', MB_YESNO+mb_ICONQUESTION)=IDYES) then
    begin
     CanClose := True;
     Application.Terminate;
    end;
end;

la verdad no tengo idea 

y en mis botonces CERRAR tengo un close....le saque la pregunta a mi form principal....y cuando
cierro  mi ventana FCARGA ...se me cierra toda la aplicacion 

[abraham85]

bueno ya se soluciono 

puse la propiedad ModalResult = mrNone y anduvo 

no recuerdo haberle metido mano ahi 

pero ya sta 

[egostar]

bueno ya se soluciono 

puse la propiedad ModalResult = mrNone y anduvo 

no recuerdo haberle metido mano ahi 

pero ya sta 

Ah vaya. mira donde salto la liebre

Salud OS

PD, ponemos este hilo como resuelto