Make the Response window to change the size

zhaozj2021-02-08  216

1. We need to declare the following API functions:

Function Long SetWindowlonga (Ulong Hwnd, Int Nindex, Long Dwnewlong) library "user32" Function Long getWindowlonga (Ulong Hwnd, Int nindex) library "user32"

2. Create a RESPONSE type window, remember: The ControlMenu property must be false.

3. In the OPEN event in the window:

Constant Long GWL_Style = -16

Constant Long WS_SYSMENU = 524288Constant Long WS_THICKFRAME = 262144

Long dwstyledWstyle = getWindowlonga (Handle (this), gwl_style

Setwindowlonga (Handle (this), GWL_Style, DWStyle WS_THICKFRAME WS_SYSMENU)

转载请注明原文地址:https://www.9cbs.com/read-2913.html

New Post(0)