Delphi - 随笔分类 - 二进制的猫

【Delphi】注册快捷键

摘要：ShortCutToText , TextToShortCut 需 uses Menus;typeTForm1 = class(TForm)HotKey1: THotKey;Button1: TButton;procedure Button1Click(Sender: TObject);proced... 阅读全文

posted @ 2014-05-29 10:43 二进制的猫阅读(491) 评论(0) 推荐(0)

【Delphi】最小化事件捕捉

摘要：添加一个ApplicationEvents组件在窗体，然后处理其OnMinimize事件和OnRestore事件即可。阅读全文

posted @ 2014-04-13 23:08 二进制的猫阅读(352) 评论(0) 推荐(0)

【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 二进制的猫阅读(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)

【DELPHI】线程相关

摘要：线程相关阅读全文

posted @ 2014-01-13 15:00 二进制的猫阅读(136) 评论(0) 推荐(0)

随笔分类 - Delphi