Private Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) '具有单边框、标题栏菜单的弹出式窗口 Private Const WS_MINIMIZE = &H20000000 '窗口最小化 Private Const WS_VISIBLE = &H10000000 '窗口可见 Private Const WS_DISABLED = &H8000000 '窗口被禁用 Private Const WS_MAXIMIZE = &H1...
Application.CreateForm(TMainForm, MainForm); // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS // = $16030000 NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE)and ($16030000)or WS_EX_TOOLWINDOW; SetWindowLongPtr(MainFor...
Application.CreateForm(TMainForm, MainForm); // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS // = $16030000 NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE) and ($16030000) or WS_EX_TOOLWINDOW; SetWindowLongPtr(Main...
Private Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) '具有单边框、标题栏菜单的弹出式窗口 Private Const WS_MINIMIZE = &H20000000 '窗口最小化 Private Const WS_VISIBLE = &H10000000 '窗口可见 Private Const WS_DISABLED = &H8000000 '窗口被禁用 Private Const WS_MAXIMIZE = &H1...
// WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS // = $16030000 NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE)and ($16030000)or WS_EX_TOOLWINDOW; SetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE, NewStyle); ...