Ventana con mensaje (No Responde)

[aledieb]

Hola, proba comentando la línea

Código Delphi [-]
LockWindowUpdate(Handle);

[Neftali [Germán.Estévez]]

Empezado por aledieb

Agrega en el while

Código Delphi [-]
 Application.ProcessMessages;

Empezado por aledieb

Hola, proba comentando la línea

Código Delphi [-]
LockWindowUpdate(Handle);

Yo diría que hicieras ambas cosas.
Eliminar el bloqueo de la ventana y añadir un ProcessMessages para que se procesen los mensajes de la UI.

[[egostar]]

Intenta esto:

Código Delphi [-]
try
  while Not Relacion.eof do
  begin
    DetDocumento.Insert;
    DetDocumentoNUMLIQUIDA.Value := RelacionNUMLIQUIDA.Value;
    DetDocumentoTOTLIQUIDA.Value := RelacionTOTLIQUIDA.Value;
    DetDocumentoPAGODIV.Value := RelacionPAGODIV.Value;
    DetDocumentoPAGOBOL.Value := RelacionPAGOBOL.Value;
    Relacion.Next;
  end;
finally
  DetDocumento.Post;
end;

Saludos