第二个问题已经解决
用sendmessage(handle,WM_SYSCOMMAND,SC_ICON,0);
还剩第一个问题大家快来呀
有人给我提示
可是我还是高不懂TForm1 = class(TForm)
private
...
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;//这一行要自己加!
...
end;procedure TForm1.WMNCPaint(var Message: TMessage);
...
begin
hrgn:=Message.wParam;
...
..
end;
用sendmessage(handle,WM_SYSCOMMAND,SC_ICON,0);
还剩第一个问题大家快来呀
有人给我提示
可是我还是高不懂TForm1 = class(TForm)
private
...
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;//这一行要自己加!
...
end;procedure TForm1.WMNCPaint(var Message: TMessage);
...
begin
hrgn:=Message.wParam;
...
..
end;
用GetWindowDC,然后要怎么办,就看你自己的了