Ver Mensaje Individual
  #18  
Antiguo 31-07-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita