Cual es el problema con este codigo?

[THACKER]

Hmmm no me funciona :S
Se queda el No pegado sera que puedes completar el script con el IF para si el usuario selecciona si para guardar los cambios?

Espero respuesta que no quiero raspar ! :'(

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified = true then
begin
CanClose := messagebox(handle, 'Press Y to Exit ? [Y or N]', 'Select...', MB_YESNO)=IDYES;
  messagebox (handle, 'YES', 'YEA', mb_iconinformation);
    end else begin
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
     end;
close;
end;

[[Crandel]]

Por que no explicas cual es la logica que quieres implementar ?

La pregunta es si quiere salir ? si quiere guardar ? son dos preguntas por separado ?

[THACKER]

Osea dejame explicarme.

Se trataria algo asi, que el synedit al estar modificado y al tratar de cerrarlo este pregunte si se desean guardar los cambios.

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified = true then
begin
CanClose := messagebox(handle, 'Desea guardar los cambios al script?', 'Selecciona', MB_YESNO)=IDYES;
  messagebox (handle, 'YES', 'YEA', mb_iconinformation);
    end else begin
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
     end;
close;
end;

Y que se ejecute cierto savedialog y que al seleccionar No el mismo se cierre sin guardar cambios.
Pero claro ese script no sirve me da error :S

[[Crandel]]

entonces no debes modificar CanClose, porque la idea es salir siempre, solo saber si desea guardar antes los cambios o no.

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if synedit1.Modified = true then
  begin
    if messagebox(handle, 'Desea guardar los cambios antes de salir?', 'Selecciona', MB_YESNO)=IDYES then
      messagebox (handle, 'YES', 'YEA', mb_iconinformation);
    else
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
  end;
end;

[THACKER]

Muchas gracias [Crandel]!!
uffff ya casi no me da error y es parte de lo que me falta para completar el examen, pero me da este error:

[ERROR] CHILDWIN.PAS :
' ; ' not allowed before 'else'

En este script:

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if synedit1.Modified = true then
  begin
    if messagebox(handle, 'Desea guardar los cambios antes de salir?', 'Selecciona', MB_YESNO)=IDYES then
      messagebox (handle, 'YES', 'YEA', mb_iconinformation);
    else
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
  end;
end;

Alguna idea?: :S

[[duilioisola]]

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if synedit1.Modified = true then
  begin
    if messagebox(handle, 'Desea guardar los cambios antes de salir?', 'Selecciona', MB_YESNO)=IDYES then
      messagebox (handle, 'YES', 'YEA', mb_iconinformation)  {  ;  Sobra este }
    else
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
  end;
end;

[THACKER]

Por favor espero alguien me ayude es urgente!

no importa cuantas veses lo trate, el sistema no funciona como deberia
veran quisiera esto aver si alguien me logra ayudar y lograr hacerlo funcionar llevo 2 horas en esto ¬¬

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if synedit1.Modified = true then
  begin
    if messagebox(handle, 'Desea guardar los cambios antes de salir?', 'Selecciona', MB_YESNO)=IDYES then
      messagebox (handle, 'YES', 'YEA', mb_iconinformation);
      MainForm.Close;
    end else begin
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
      MainForm.close;
  end;

Quisiera que pasaran los siguientes casos:

Código Delphi [-]
procedure ....
begin

if objeto.modified = true then
begin
 messagebox "Desea guardar cambios?", Botones: Yes + No
 al presionar yes:
 
 if savedialog.execute...
 si presiona no:
   end else begin
 cierra la ventana mdi
  
 end;

end;

end.

Ayuda por favor no quiero raspar :S