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

2014年3月24日

摘要： 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 二进制的猫阅读(476) 评论(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 二进制的猫阅读(411) 评论(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 二进制的猫阅读(157) 评论(0) 推荐(0)