Setwindowlong Delphi Пример

SetWindowLong является функцией Windows API, которая позволяет изменять значений длинных целых чисел, связанных с определенным окном, в том числе стилем окна, процедурой обработки оконных сообщений и многими другими.

В Delphi для использования функции SetWindowLong необходимо объявить соответствующий импорт:

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall; external 'user32.dll';

Аргументы функции:

hWnd - дескриптор изменяемого окна
nIndex - индекс изменяемого значения
dwNewLong - новое значение, которое необходимо применить к окну

Пример использования функции SetWindowLong в Delphi:

function WndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;begin  case Msg of    WM_CREATE:      begin        SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) and not WS_CAPTION);        SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) or WS_EX_CLIENTEDGE);      end;    ...  end;end;

В данном примере мы переключаем окно из режима с заголовочной панелью в режим без заголовочной панели и устанавливаем стиль WS_EX_CLIENTEDGE для добавления клиентской рамки окну.