码迷,mamicode.com
首页 > Windows程序 > 详细

窗体上打个矩形的洞

时间:2014-07-29 20:35:42      阅读:319      评论:0      收藏:0      [点我收藏+]

标签:style   blog   http   color   io   for   2014   div   

step1 在窗体上打个矩形的洞{鼠标可以穿透这个窗体}
bubuko.com,布布扣
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;





无标题 但能拖拽
bubuko.com,布布扣
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) xor WS_CAPTION);
  Height := ClientHeight;
end;


    




窗体上打个矩形的洞,布布扣,bubuko.com

窗体上打个矩形的洞

标签:style   blog   http   color   io   for   2014   div   

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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!