• 1
Авторизация  
dnekrasov

[Windows] Запретить окну переход в прозрачный режим

Вопросы

Недавно решил одну проблемку, которая долго мучала - решил поделиться, может кому ещё пригодится.

При работе с двумя мониторами или с монитором и проектором часто возникает необходимость запретить окну "исчезать" при наведении курсора мыши на миниатюру другого приложения в панели задач. Чтобы это сделать надо:

uses
  ...
  Winapi.DwmApi
  ...

  TMainForm = class(TForm)
  ...
  protected
    procedure CreateHandle; override;
  ...
  end;
...
procedure TMainForm.CreateHandle;
var
  Val, Res: Integer;
begin
  inherited CreateHandle;

  Val := 1;
  Res := DwmSetWindowAttribute(FormToHWND(Self), DWMWA_EXCLUDED_FROM_PEEK, @Val, SizeOf(Val));
  {$IFDEF DEBUG}
  if Res <> S_OK then
    ShowMessage(SysErrorMessage(Res));
  {$ENDIF}
end;

Спасибо @Alex7wrt за наводку

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

0 ответов на этот вопрос

Ответы на этот вопрос пока отсутствуют

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу