1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

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

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

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

    BrigOS Гость

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

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