"Мягкое" перетаскивание потомков TGraphicControl

  • Автор темы BrigOS
  • Дата начала
Статус
Закрыто для дальнейших ответов.
B

BrigOS

#1
Есть у меня на форме множество потомков TGraphicControl. Их можно перетаскивать мышкой. Однако при этом они сильно мерцают.
В конструкторе устанавливаю ControlStyle := ControlStyle - [csOpaque].
Сообщения WM_PAINT и WM_ERASEBKGND обрабатываю так:
procedure TMyCompo.WMPaint(var Msg: TWMPaint);
begin
Canvas.Draw(0,0,FMetafile);
end;
...
procedure TMyCompo.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
SetBkMode(Msg.DC, TRANSPARENT);
Msg.Result := -1;
end;

FMetafile - это небольшой метафайлик который я загрузаю тоже в конструкторе.
Можно ли сделать так чтобы при перетаскивании TGraphicControl не мерцал постоянно.
 
Статус
Закрыто для дальнейших ответов.