Решение проблемы застывания дочернего окна при движении родительского в Delphi

Delphi , ОС и Железо , Windows

Как создать дочернее прозрачное окно с эффектом слоя и поддержкой перемещения в Delphi?

При разработке интерфейсов в Delphi иногда возникает необходимость создать дочернее окно с эффектом прозрачности и слоя. Однако, при этом может возникнуть проблема, когда дочернее окно "застывает" на экране при перемещении родительского. В данной статье мы рассмотрим, как решить эту проблему, используя возможности Object Pascal и компоненты Delphi.

Описание проблемы

Пользователь столкнулся с проблемой, при которой дочернее прозрачное окно (Form2) не отображается в движении вместе с родительским (Form1). При перемещении Form1, Form2 движется физически, но на экране остаётся на своём месте, и после перемещения родительского окна клики по дочернему окну не регистрируются, так как кажется, что оно проходит сквозь него.

Пример кода, вызывающий проблему

procedure TForm1.BtnGoClick(Sender: TObject);
var
  bmp: TBitmap;
  BitmapPos: TPoint;
  BitmapSize: TSIZE;
  BlendFunction: _BLENDFUNCTION;
  exStyle: Cardinal;
begin
  // ...
  UpdateLayeredWindow(Form2.Handle, 0, nil, @BitmapSize, bmp.Canvas.Handle, @BitmapPos, 0, @BlendFunction, ULW_ALPHA);
  // ...
  Windows.SetParent(Form2.Handle, Form1.Handle);
  bmp.Free;
end;

Подтвержденный ответ

Для решения проблемы необходимо обновить функцию UpdateLayeredWindow для дочернего окна после каждого его перемещения или изменения размера. Это обеспечит корректное отображение дочернего окна на экране.

Также в качестве альтернативы можно использовать TCustomTransparentControl – компонент, позволяющий создать прозрачное окно без использования UpdateLayeredWindow. Однако, стоит отметить, что TCustomTransparentControl не предназначен для создания дочерних окон в том же смысле, что и обычные формы. Он представляет собой альтернативный подход к созданию прозрачных элементов внутри родительского окна.

Альтернативный подход

Код, использующий UpdateLayeredWindow, должен быть дополнен функцией, которая будет вызываться при перемещении окна, например, в обработчике события WM_MOVE:

procedure WMPaint(var Message: TMessage);
begin
  if Message.Msg = WM_PAINT then
  begin
    UpdateLayeredWindow(Form2.Handle, nil, nil, ...);
    Message.Result := 0;
  end;
end;

Добавьте этот обработчик в код Form2, чтобы обеспечить корректное обновление прозрачного слоя при перемещении окна.

Заключение

Создание дочернего прозрачного окна в Delphi требует дополнительных усилий для поддержания его корректного отображения на экране при перемещении родительского окна. Используя UpdateLayeredWindow или TCustomTransparentControl, можно достичь желаемого результата, но важно помнить о необходимости обновления прозрачного слоя в соответствии с изменениями положения и размера дочернего окна.

Создано по материалам из источника по ссылке.

Пользователь ищет решение для создания в Delphi прозрачного дочернего окна, которое корректно отображается и поддерживает перемещение вместе с родительским окном, используя функцию `UpdateLayeredWindow` и возможные альтернативные подходы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::