OLE-Steuerung von Word: DoEvents

[ts-d]

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;