Codigo antes de mostrar form - Maximizar

[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.

[roman]

Aquí te pongo un ejemplo completo. Mira a ver si tal cual te sirve. Encerré la llamada a SystemParametersInfo en un Assert para asegurarnos que realmente surte efecto pues pudiera ser que por alguna razón no esté inhabilitando la animación.

// Saludos

[JXJ]

Gracias Roman, el efecto de maximizadose reduce, bastante,
solo se nota, un poco al maximizarse.

lo excelente, es que, no me deja con la sensacion, de que
se traba la aplicación, al maximizarse.
y lo noto por que mi pc con el codigo anterior,
como que hacia un ruido de esforzarse más, que con este
reciente codigo