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