摘要: 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 二进制的猫 阅读(390) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif ssleft in shift then releasecaptur... 阅读全文
posted @ 2014-03-24 20:44 二进制的猫 阅读(146) 评论(0) 推荐(0) 编辑
摘要: 1. 重写WndProcprotected override void WndProc(ref Message m){ const int WM_NCHITTEST = 0x84; const int HTCLIENT = 0x01; cons... 阅读全文
posted @ 2014-03-16 23:42 二进制的猫 阅读(330) 评论(0) 推荐(0) 编辑
摘要: 上传文件,只判断后缀,貌似还不是很严谨; 阅读全文
posted @ 2014-01-13 15:03 二进制的猫 阅读(350) 评论(0) 推荐(0) 编辑
摘要: 线程相关 阅读全文
posted @ 2014-01-13 15:00 二进制的猫 阅读(129) 评论(0) 推荐(0) 编辑
摘要: 重新开通博客了~ 阅读全文
posted @ 2014-01-13 14:58 二进制的猫 阅读(74) 评论(0) 推荐(0) 编辑