Heyho, dass hat leider nichts bewirkt. Füge ich weiter unten noch ein:
Delphi-Quellcode:
procedure DoRepaint(Ctrl: TControl);
var
i: integer;
begin
if (Ctrl is TWinControl) then
begin
TWinControl(Ctrl).Repaint;
for i := 0 to TWinControl(Ctrl).ControlCount - 1 do
DoRepaint(TWinControl(Ctrl).Controls[i]);
end;
//neu
if (Ctrl is TCustomRichEdit) then
TCustomRichEdit(Ctrl).Repaint
end;
erscheint das Richedit für eine Milisekunde wieder, ist sofort danach aber wieder weg.
