Ver Mensaje Individual
  #17  
Antiguo 26-01-2004
wallesis wallesis is offline
Miembro
 
Registrado: dic 2004
Posts: 25
Reputación: 0
wallesis Va por buen camino
Perdona no hagas caso a mi anterior mensaje. SI que he conseguido entrar en el procedimiento de esta forma:

var
respuesta: integer;

begin

with (ActiveMDIChild as TVentana_Hija) do
begin
if (RE_Editor.Modified) then
begin
Respuesta := Application.MessageBox('¿Desea guardar los cambios? ',
' Guardar',mb_IconWarning + mb_yesNoCancel);
Case Respuesta of
idYes: begin
SD_Guardar_Fichero.Filename := Caption;
if (FileExists (SD_Guardar_Fichero.Filename)) then
begin
RE_Editor.Lines.SaveToFile(SD_Guardar_Fichero.Filename);
Close;
end
else
begin
if(SD_Guardar_Fichero.Execute) then
begin
RE_Editor.Lines.SaveToFile(SD_Guardar_Fichero.Filename);
Close;
end;
end;
end;
idNo : Close;
idCancel: ;
end;
end
else Close;
end;

Pero si es cierto que se me ejecuta dos veces a partir de que hago una modificacion en el documento, es decir si tengo un documento en el que la propiedad modified está en False y pulso el botón cerrar, la v3ntana se cierra bien. Pero en el momento que entra en la sentencia: if (RE_Editor.Modified) then, todas las opciones que tóme se repiten, eso si al final de la segunda vez si que se realiza lo que halla elegido.

Lo ultimo que te cuento, lo de que un documento nuevo se inicia con la propiedad modified en true, tambien me sigue ocurriendo. Por ejemplo cuando creo una ventana nueva se pulso el boton cerrar ventana, en vez de cerrarse tal cual, me entra en la sentencia if (RE_Editor.Modified) then y me pregunta si deseo guardar los cambios.

Perdona el desliz.
Salu2
Responder Con Cita