Перерисовка объекта

[-Jack-]

Всем привет. Ситуация такая, пытаюсь перерисовать TRichEdit, но при этом одно из ядер процессора напрочь забивается ...

А всё дело в

procedure TRichMEditor.WMPaint(var Message: TWMPaint);
begin
  // inherited; 
  ...
end;

Но если вызвать родительский конструктор (inherited), то проблем нет ... Но нужно без него ...

Пробовал вообще ничего не рисовать в WMPaint, всё равно ядро перегружается ...

В инете находил решение проблемы для С++ через CPaintDC, но а на delphi как с этим справиться, кто может подсказать ? )

[-Jack-]

Ну как всегда, не успел написать тут, как сам разобрался ... )))

Если кому будет нужно, необходимо для прорисовки объекта его сначала подготовить ...

function BeginPaint(Wnd: HWnd ; var Paint: TPaintStruct ): HDC ;

.