1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

Тема в разделе "Delphi - Компоненты", создана пользователем BrigOS, 12 авг 2004.

Статус темы:
Закрыта.
  1. BrigOS

    BrigOS Гость

    Есть у меня на форме множество потомков 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 не мерцал постоянно.
     
Статус темы:
Закрыта.

Поделиться этой страницей