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:
Código:
[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