Delphi enable and disable click to form

Question

Я использую SetWindowLong() для просмотра моей формы. Я хотел бы обратить вспять этот процесс, но не знаю, как это сделать. Я использую этот код:

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT); 
SetWindowLong(Handle, GWL_HWNDPARENT, GetDesktopWindow); 

Answer 1

Чтобы удалить прозрачный стиль:

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and not WS_EX_TRANSPARENT);