DELPHI5P: Flackern bei RichEdit ausschalten

DELPHI5P: Flackern bei RichEdit ausschalten
Hallo Delphianer,
ich schreibe einzelne Strings mit der Anweisung ‚RichEdit.Lines.Add(‚sText‘)‘ in eine RichEdit-Komponente. Wie kann ich während des Schreibens verhindern, daß die RichEdit-Komponente nicht mehr flackert und die Scrollbalken nicht mehr hin- und herspringen ? Ich habe es schon mit ‚RichEdit.Enabled := false‘ versucht. Hatte aber keinen Erfolg.

Für einen Tip oder ein Beispiel wäre ich sehr dankbar.
MfG.
Uwe

hi,

LockwindowUpdate(Richedit.Handle);
try
Add alle Strings
finally
LockWindowUpdate(0);
end;

sollte helfen

zum schnellen Test:

procedure TForm1.Button1Click(Sender: TObject);
var i,X: Integer;

begin
LockWindowUpdate(Richedit1.Handle);
try
for i:=1 to 2000 do
begin
if i mod 2=0 then X:=0 else X:=Richedit1.Lines.Count-1;
Richedit1.Lines.Insert(X,'Test '+inttostr(i));
end;

finally
LockWindowUpdate(0);
end;
end;

Gruss RQ