10 replies to this topic

[amell2020]

hola amigos necesito otra manito con una ayuda, me gustaría saber como puedo poner un mensaje tipo yes or no antes de yo cerrar el formulario en la X (cerrar) del formulario, ya que cuando le doy a la X de cerrar del formulario ella se cierra automáticamente sin preguntar y cuando vuelvo y abro el formulario de nuevo los datos que yo escribí en formulario a parecen de nuevo, como puedo solucionar esto, si pueden ser amable y por favor?

[escafandra]

Deberás diseñar ese formulario como no autocreado y poner este código de ejemplo en el evento OnClose:

delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:= caNone;
   if MessageBox(Handle, 'Cerrar', '¿Desea cerrar?', MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
     Action:= caFree;
end;

Saludos.

[amell2020]

okay como hago un formulario no autocreado, creo que eso esta en proyect opciones form, me gustaria haber un ejemplo de como hacerlo. para no morir en el intento. jjejejeje pro favor?

[Rolphy Reyes]

okay como hago un formulario no autocreado, creo que eso esta en proyect opciones form, me gustaria haber un ejemplo de como hacerlo. para no morir en el intento. jjejejeje pro favor?

Saludos.

@amell2020, si con la respuesta de Escafandra pudiste resolver tu inquietud; lo ideal es que marques este hilo como RESUELTO y abras otro hilo con esta pregunta.

[TiammatMX]

Deberás diseñar ese formulario como no autocreado y poner este código de ejemplo en el evento OnClose:

delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:= caNone;
   if MessageBox(Handle, 'Cerrar', '¿Desea cerrar?', MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
     Action:= caFree;
end;

Saludos.

Y si usas el evento OnCloseQuery, lo ejecuta ANTES que el OnClose...

[amell2020]

aun no resuelvo el problema, mira cuando lo pongo no autoincrement el formulario a la hora de mostrarlo me da error, favor explicarme como haria eso?

[escafandra]

Te explico:

Si una vez cerrado tu formulario lo quieres volver a abris en otra ocasión futura deberás diseñarlo como no autocreable:
 

Project Options -> Pestaña Forms -> Mándalo a available Forms

Para crearlo y visualizarlo:

delphi

var
  Form2: TForm2;
begin
  Form2:= TForm2.Create(self);
  Form2.Show;
end;

Espero que con esto queden aclaradas todas tus dudas.

Saludos.

[amell2020]

si entiendo, pero donde van esas variable dentro de que?

[escafandra]

si entiendo, pero donde van esas variable dentro de que?

Ese es el código que necesitas para crear un formulario desde otro. Lo pones donde quieres, en un menú, botón o click... donde te haga falta.
Además, ese formulario tendrá en su evento OnClose el código que tye expuse mas arriba, para decidir si se cierra o no.

Saludos.

[amell2020]

sii ejejeje yo etendi, ya lo ubiese hecho, gracias amigo

[amell2020]

Gracias amigos la verdad que son una gran ayuda para mi. un placer inmenso. bendiciones