2014 年 3月随笔档案 - 二进制的猫

【Delphi】圆角窗体

摘要：procedure TForm1.FormCreate(Sender: TObject);var hr :thandle;begin hr:=createroundrectrgn(1,1,width-2,height-2,5,5); setwindowrgn(handle,hr,t... 阅读全文

posted @ 2014-03-24 21:09 二进制的猫阅读(466) 评论(0) 推荐(0)

【Delphi】窗体阴影

摘要：1 procedure TForm1.FormCreate(Sender: TObject);2 begin3 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);4 end; 阅读全文

posted @ 2014-03-24 20:45 二进制的猫阅读(401) 评论(0) 推荐(0)

【Delphi】无标题移动窗体

摘要：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif ssleft in shift then releasecaptur... 阅读全文

posted @ 2014-03-24 20:44 二进制的猫阅读(152) 评论(0) 推荐(0)

【转】【C#】无边框窗体移动的三种方法

摘要：1. 重写WndProcprotected override void WndProc(ref Message m){ const int WM_NCHITTEST = 0x84; const int HTCLIENT = 0x01; cons... 阅读全文

posted @ 2014-03-16 23:42 二进制的猫阅读(347) 评论(0) 推荐(0)