Codigo antes de mostrar form - Maximizar

[yusnerqui]

Waoooo, quiero darte las gracias Román, yo fui quien abrió aquel hilo y te confieso que aunque quedé muy agradecido por el esfuerzo de todos los amigos del club mi aplicación no funcionó como yo quería hasta hoy que puse en práctica los trucos que das en este hilo. Gracias nuevamente.

Por cierto de donde lo sacarías

un saludo desde Cuba

[lafirma]

Roman, he observado tus ejemplos y funcionan a la perfeccion... agradezco tu evidente esfuerzo por encontrar una solucion...

Sin embargo debo mencionar que aun tengo contratiempos, pues el hecho de que el form sea maximizado ó no, se obtiene de un archivo Ini cada vez que se abren los forms, y se guarda cada vez que se cierran, por lo que los trucos mencionados no me funcionan tal cual estan, esoy intentando adaptarlos a lo que necesito, indicare mas adelante como resulto todo.

[delphi.com.ar]

¿De que componente se trata?... si es alguno de los de las RxLibs, puedes suprimir este comportamiento simplemente quitando fpState de la propiedad Options.

[lafirma]

Es un componente personal, lo uso para recuperar el estado del form de una manera sencilla, le eche un vistazo al componente de las Rx que mencionas, no recordaba que las Rx tenian ese componente, yo solo uso los CurrencyEdit, CalcEdit y DateEdit junto con sus versiones DBAware...
De todas maneras al establecer el State en la propiedad Options lo que hace es que desactiva la capacidad de recuperar tambien el estado del form cuando se cerro, yo no quiero eso, el 'componentio' que tengo funciona como yo quiero, guarda y recupera todo, eso incluye estado, posicion y tamaño. El unico problemilla es el efecto ese que se produce al maximizar,
En un cliente que no tiene una maquina tan potente se ve mas 'real', aparece maximizado, se ubica en normal y despues nuavamente se maximiza, y se ve fatal... el cliente no dice nada de eso, ni le para mucho balin como decimos por aca, pero simplemente a mi no me deja satisfecho... quiero que se vea ya maximizado desde que el form aparece.

Intenté sobrescribiendo en la clase el metodo CreateParams, pero tampoco funciona... seguire investigando a ver que consigo...

[roman]

Empezado por lafirma

por lo que los trucos mencionados no me funcionan tal cual estan, esoy intentando adaptarlos a lo que necesito, indicare mas adelante como resulto todo.

En casa tengo algún código que se encargaba de estos detalles sin importar en qué momento se maximizaba el formulario. No puedo verificarlo ahora pero pienso que puedes intentar capturar el mensaje WM_SIZE para el formulario hijo, inhabilitando la animación antes de llamar a inherited y rehabilitandola después:

Código Delphi [-]
procedure TVentanaHija.WMSize(var Msg: TWMSize);
begin
  if Msg.SizeType = SIZE_MAXIMIZED then
  begin
    EnableAnimation(false);
    LockWindowUpdate(Handle);

    inherited;

    LockWindowUpdate(0);
    EnableAnimation(true);
  end
  else
    inherited;
end;

Si esto te funciona entonces bastaría que manejes este mensaje en el formulario base de manera que todos los hijos descendientes hereden el comportamiento.

Claro, que si no te interesa recuperar la maximización al momento de reabrir la aplicación entonces bastará hacer lo que te indica Federico.

Edición - Corrección

En la llamada a LockWindowUpdate de arriba tendrías que poner el 'handle' de la ventana padre, no el del mismo formulario hijo como puse.

// Saludos

[lafirma]

veo que ya voy encontrando la luz...
Roman, esto ya se ve mejor...
En cuanto a tu codigo editado, tienes razon, si es el handle hijo el que se ubica pues no surte ningun efecto...

Por otro lado, delphi.com, a raiz de tu mensaje estuve viendo el componenente de las Rx y realmente es muy potente... trae incluso su propio diseñador...

Debo decir que esto me tiene un poco desconcertado, deberia existir una manera de crear el form maximizado desde el inicio y no que se efectue la creacion como normal y despues se maximize... eso fue lo que intente al sobreescribir el metodo createparams pero tampoco funciona...

gracias de nuevo

[delphi.com.ar]

Empezado por lafirma

Por otro lado, delphi.com, a raiz de tu mensaje estuve viendo el componenente de las Rx y realmente es muy potente... trae incluso su propio diseñador...

Cometí el error de no leer todo tu mensaje, y entendí que otro era el problema, por eso mi sugerencia. Con respecto a estos componentes de las Rx, se trata de dos componentes, uno con una potencialidad extra muuuy interesante. El TFormPlacement, sirve para guardar la posición, estado y posición del foco de un formulario, pudiendo extender a otras propiedades de otros componentes o simplemente variables desde los eventos OnSavePlacement y OnRestorePlacement con los métodos Write.. y Read.., y el TFormStorage trae un editor de propiedades que nos permite guardar el valor casi cualquier propiedad de los componentes contenidos por el formulario. Otra ventaja de estos controles, es que estan soportados por algunos componentes como el TRxDBGrid y pueden enlazarse con este para que se guarde automáticamente el ancho y posición de las columnas...

Saludos!

[JXJ]

Roman. '¿de donde conoces que hacen esas funciones?

estuve buscando en la ayuda de delphi
y en internet.
pero no encuentro, lo de
lockwindow
EnableAnimation(false);

y nada,. yo solo quiero deshabilitar el ver
la animacion.

ya revise aui.
http://www.clubdelphi.com/foros
/showthread.php?t=8831&highlight=maximizar

y esta bueno, el poner windowstate:= wsmaximized

vale gracias.

[roman]

EnableAnimation no la encontrarás porque es sólo el nombre que le puse yo a la función de más arriba, que usa SystemParametersInfo. Tanto esta última como LockWindowUpdate están documentadas en el SDK de Windows.

// Saludos

[JXJ]

¿como obtengo En la llamada a LockWindowUpdate de arriba el 'handle' de la ventana padre, no el del mismo formulario hijo ?

no doy como hacerlo.. de varias formas he intendado
que no se muestre la animacion pero siempre
se muestra a la mitad y queda por como medio segundo

gracias

[JXJ]

o ¿ alguien que si le haya funcionado ,, algun metodo para
no mostrar el efecto de la animacion al mostrar la ventana hija
y que puede proporcionarlo =?

Gracias

[roman]

Anteriormente había mencionado que quizá funcionaría usando el mensaje WM_SIZE pero no tenía manera de verificarlo en ese momento. Ahora que lo hago veo que no es el mejor lugar. De hecho, según leo en la documentación, WM_SIZE ocurre después de que la ventana cambia de tamaño por lo que es lógio que no funcione.

Según pruebo ahora, puedes intentar con el mensaje WM_SYSCOMMAND:

Código Delphi [-]
procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType and $FFF0 = SC_MAXIMIZE) or (Msg.CmdType and $FFF0 = SC_RESTORE) then
  begin
    EnableAnimation(false);
    //LockWindowUpdate(Application.MainForm.Handle);

    inherited;

    //LockWindowUpdate(0);
    EnableAnimation(true);
  end
  else
    inherited;
end;

Como ves, he comentado las líneas de LockWindowUpdate pues al inhabilitar la animación, parece que no son necesarias.

// Saludos

[JXJ]

vieras Roman que no me funciona...
se sigue notando la animacion...

sigo probando, con el codigo
para que me funcione a mi tambien.

gracias.