Bildschirmaufbau abgeschlossen - wie kann man das ermitteln

[shmia]

Wenn man die ganze Rechenleistung des Prozess darauf konzentriert, das Formular zu zeichen, sollte das doch machbar sein:

Delphi-Quellcode:

Procedure ProcessPaintMessages;
Var
   Msg : TMsg;
Begin
   // nur Paint-Message verarbeiten
   While PeekMessage(Msg, 0, WM_PAINT, WM_PAINT, PM_REMOVE) Do
   Begin
      DispatchMessage(Msg);
   End;
End;

FormAufnahme.visible := TRUE; // Bild an 
ProcessPaintMessages;
. 
SendMessage(FCapHandle, WM_CAP_GRAB_FRAME_NOSTOP, 1, 0); // Foto machen 
. 
FormAufnahme.visible := FALSE; // Bild aus