Cita:
Empezado por Melissa_12
Por otra parte ecfisa he probado con Modified pero aun sin modificar nada me sigue poniendo la variable en True y pues me hace la pregunta.
Muchas Gracias por sus respuestas.
|
Hola.
Es realmente extraño... por que la propiedad
Modified toma el valor verdadero sólo si alguna linea ha tenido algún cambio.
Para salir de dudas hice una pequeña prueba:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('PRUEBA.TXT')
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Memo1.Modified and (MessageBox(Handle,'¿Desea guardar los cambios?',
'', MB_ICONQUESTION+MB_YESNO)= IDYES) then
Memo1.Lines.SaveToFile('PRUEBA.TXT')
end;
Y se comporta como se espera. Solamente presenta la consulta si se ha modificado al menos un caracter del Memo.
¿ Algún evento de tu código no estará modificando algo del Memo ?
Saludos.