Delphi启用和禁用点击进入表单

Question

我使用SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT); SetWindowLong(Handle, GWL_HWNDPARENT, GetDesktopWindow); 点击我的表单。我想扭转这个过程，但不知道如何。我使用下面的代码：

if (tfid.Trim() == textBox6.Text.Trim())

Answer 1

删除透明样式：

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