Einzelnen Beitrag anzeigen

ts-d

Registriert seit: 29. Apr 2008
31 Beiträge
 
#8

AW: OLE-Steuerung von Word: DoEvents

  Alt 17. Dez 2020, 13:51
vielen Dank

Ich denke, die Sache ist gelöst - muß es aber noch testen.

Es werden mehrer Word-Tabellen aus einer Paradox-Tabelle befüllt, quasi so eine Art Word-Formulargenerator. Und an einer Stelle happert's - da springt Word nicht in die nächste Zelle, sondern bleibt sitzen und fügt praktisch den nächsten Wert in die Zelle mit ein.

Ich habe jetzt folgendes an den kritischen Stellen eingefügt:

Delay(1);

und die Funktion:

procedure TMainForm.Delay(const Milliseconds: DWord);
var
FirstTickCount: DWord;
begin
FirstTickCount := GetTickCount;
while ((GetTickCount - FirstTickCount) < Milliseconds) do
begin
Application.ProcessMessages;
Sleep(0);
end;
end;
  Mit Zitat antworten Zitat