tests/webtbs/tw4043.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %target=win32 }
{ %OPT=-Sew -vw }

uses
  windows;

var
  WindowHandle : HWND;

begin
  WindowHandle:=0;
  SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN);
  halt(0);
end.