窗体上打个矩形的洞

2020-12-13 05:38

阅读：572

标签：style blog http color io for 2014 div

step1 在窗体上打个矩形的洞｛鼠标可以穿透这个窗体｝


procedure MakeRectHole(Ctrl:TWinControl;Form:TForm);
var
  Rgn1, Rgn2: HRGN;
begin
  Rgn1 := CreateRectRgn(0,0, Form.Width, Form.Height);
  Rgn2 := CreateRectRgn(Ctrl.Left, Ctrl.Top,Ctrl.Left+ Ctrl.Width,Ctrl.Top+ Ctrl.Height);
  CombineRgn(Rgn1, Rgn1, Rgn2, RGN_DIFF);
  SetWindowRgn(Form.Handle, Rgn1, TRUE);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     MakeRectHole(Panel1,Form1);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
       BorderStyle:=BsNone;
       WindowState:= wsMaximized;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture();

SendMessage(Panel1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);

MakeRectHole(Panel1,Form1);

end;

无标题但能拖拽


procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) xor WS_CAPTION);
  Height := ClientHeight;
end;

来自为知笔记(Wiz)

窗体上打个矩形的洞,搜素材,soscw.com

窗体上打个矩形的洞

标签：style blog http color io for 2014 div

原文地址：http://www.cnblogs.com/xe2011/p/3875862.html

上一篇：后缀数组入门

下一篇：关于使用pipenv管理Python环境

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：窗体上打个矩形的洞
文章链接：http://soscw.com/essay/31371.html

亲，登录后才可以留言！

窗体上打个矩形的洞

评论

热门文章

推荐文章

最新文章

置顶文章