Cual es el problema con este codigo?

[[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

[[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
    begin {Esta parte se ejecuta si responde SI}
      if (SaveDialog1.Execute) then
      begin
        {Esto no se si se hace así, pero es la idea}
        synedit1.Lines.SaveToFile(SaveDialog1.FileName);
      end;
      CanClose := True;
    end

    else

    begin {Esta parte se ejecuta si responde NO}
      CanClose := True;
    end;
  end;
end;

[Ñuño Martínez]

Le faltan "BEGINS" a los "ENDS". No puedes poner un END si no hay un BEGIN antes.

Si no has entendido eso entonces nunca serás capaz de escribir un programa que funcione. Debes repasar la gramática del Pascal.