5,392
社区成员
发帖
与我相关
我的任务
分享
with Wnd do
begin
style := CS_HREDRAW or CS_VREDRAW; {改变大小时重绘}
cbClsExtra := 0; {没有额外的窗口类信息}
cbWndExtra := 0; {没有额外的窗口信息}
hIcon := 0; {没指定图标}
hCursor := LoadCursor(0, IDC_ARROW); {选用了系统提供的指针}
lpszMenuName := nil; {不指定默认菜单}
lpfnWndProc := @WndNewProc;
hInstance := hInstance;
lpszClassName := LayeredWndClass;
hbrBackground :=CreateSolidBrush(RGB(0, 0,0));
end;
Windows.RegisterClass(Wnd);
Hnd:=CreateWindowEx(WS_EX_TOOLWINDOW ,
LayeredWndClass,
PChar(form1.Caption),
WS_VISIBLE or WS_POPUP ,
form1.Left,
form1.Top,
form1.Width,
form1.Height,
form1.Handle,
0,
HInstance,
nil);