GetWindowsLong & SetWindowLong

[Now.]

Здравствуйте
Пытаясь написать что-то вроде виджета, я нагуглил интересный способ придать форме прозрачность для нажатий мыши (Click pass though). Заключается он в одной единственной строчке:

SetWindowLong(Handle, GWL_EXSTYLE, $8080028);

Всё бы хорошо, но вот решив сделать эту функцию переключаемой в меню (Checked), чтобы в случае надобности можно было передвинуть форму, наткнулся на такую проблему как нехватка знаний, и гугл скилл в этот раз не помогает Вся проблема заключается в том, что я не знаю как это отменяется. Прочитал статьи и справки, касаемые этих функций, но нашел всего один единственный ответ, но не исчерпывающий. Там посоветовали перед активацией функции, запросить изначальный стиль формы функцией GetWindowsLong и хранить его в переменной, после чего при надобности возвращать значение, затирая код, который я показал выше. Вот если бы я знал как это всё вообще выглядит... Помогите люди добрые подробными примерами

[AlexMas]

//при установке прозрачности
oldstyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, $8080028);

//при отмене
SetWindowLong(Handle, GWL_EXSTYLE, oldstyle);

не?

[volvo877]

Now., играешь против правил, смотри, как бы ОС тебе не отомстила. Или ее разработчики в следующих релизах/апдейтах Говорено 1000 раз: не пользуйтесь магическими константами. Вот что делает твой код:

SetWindowLong(Handle, GWL_EXSTYLE,
   WS_EX_NOACTIVATE or      // $08000000
   WS_EX_LAYERED or         // $00080000
   WS_EX_TRANSPARENT or     // $00000020
   WS_EX_TOPMOST);          // $00000008

А теперь внимательно читаем, что можно устанавливать с помощью SetWindowLong (тот момент, что SetWindowLong не стоит использовать вообще - и это тоже указано в MSDN - я пока не акцентирую), а что - нет. И что видим?

WS_EX_TOPMOST
The window should be placed above all non-topmost windows and should stay above them, even when the window is deactivated. To add or remove this style, use the SetWindowPos function.

То, что оно у тебя отработало - это либо везение, либо просто "до поры, до времени". И когда, в один прекрасный момент (а может, и не очень прекрасный), у тебя что-нибудь перестанет работать - не говори, что я тебя не предупреждал.

[Now.]

AlexMas, Благодарю, получилось более-менее. Правда при переключении вся прозрачность формы пропадала, но получилось частично решить, добавив еще строку:

SetWindowLong(Handle, GWL_EXSTYLE, $8080028);
Main.Brush.Style:=bsClear;

Так хоть и появляются артефакты по краям png изображений в ~1px, копирующие фон при клике активации, но это не шибко страшно. Хотя бы так.

Получилось с переключателем:


Было раньше без него:

Сообщение от volvo877

Now., играешь против правил, смотри, как бы ОС тебе не отомстила. Или ее разработчики в следующих релизах/апдейтах Говорено 1000 раз: не пользуйтесь магическими константами.

Совсем не страшно играть против правил, когда их не знаешь К тому же, аналогов этой функции я не нашел. Но как-то же делают? Да и что может случиться, кроме как глюков программки? Не страшно, я в паблик не собираюсь её выкладывать. Только для себя, так сказать "облегчение юзабилити".

Кстати, я так всю программу методом гугла написал. Может быть что-то осуществил старым методом, что-то не рекомендуемым, но кое-как эта вся конструкция работает. Вот до сих пор не знаю только как осуществить альфа каналы изображения + прозрачную главную форму. Т.е. чтобы получилась полупрозрачная, рисованнае мною панель (png файл с альфой), которая играет роль основной формы в скомпилированном приложении, потому что сама основная форма прозрачная (TransparentColorValue - clWhite, TransparentColor - True, Color - clWhite). Получается только с png со 100%-й видимостью, иначе же за ним просвечивается clWhite.

[GunSmoker]

Так хоть и появляются артефакты по краям png изображений в ~1px, копирующие фон при клике активации, но это не шибко страшно.

Есть мнение, что попутал правую-нижнюю координату (Right/Bottom) с высотой и шириной. Там как раз разница 1 пиксель.

[Now.]

Так и есть, вчера заметил. Но округлые углы у png всё равно не исправить.