formularios mdi
hola gente.
quiero guardar en la posicion, el tamaño, y si estaban visibles los form mdi child
para eso en el evento on Destroy del form:
procedure TfSesion.FormDestroy(Sender: TObject);
begin
self.customizer.saveForm(self);
end;
donde el saveform:
procedure Tcustomizer.saveForm(fm : Tform);
var
reg : Tregistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey(self.key,true);
reg.WriteInteger(self.Cifrar('TOP'),fm.Top);
reg.WriteInteger(self.Cifrar('LEFT'),fm.Left);
reg.WriteInteger(self.Cifrar('HEIGHT'),fm.Height);
reg.WriteInteger(self.Cifrar('WIDTH'),fm.Width);
if fm.Showing then
reg.WriteInteger(self.Cifrar('VISIBLE'),1)
else
reg.WriteInteger(self.Cifrar('VISIBLE'),0);
reg.CloseKey
end;
el problema que tengo es que siempre el metodo fm.showing es TRUE.
todos los forms tienen en el evento close:
procedure TfSesion.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(self.Handle, SW_HIDE);
end;
¿como puedo saber si se estaba mostrando o no un formulario mdi child en el momento de destruirlo?
gracias de antemano por su ayuda.
Saludos,
Federico, Mar del Plata, Argentina.-
__________________
El secreto de la libertad está en no tener miedo.
|