Technology Learning

导航

08 2010 档案

删除非空目录
摘要：function DeleteDirectory(mSource: string): Boolean; var vSHFileOpStruct: TSHFileOpStruct; begin FillChar(vSHFileOpStruct, SizeOf(vSHFileOpStruct), 0); with vSHFileOpStruct do begin Wnd := Ap... 阅读全文

posted @ 2010-08-05 14:56 浔阳渔夫 阅读(433) 评论(1) 推荐(0)

获取滚动条的高度和宽度
摘要：var SbarWh,SbarHt:integer;begin SbarHt:=getsystemmetrics(SM_CXHSCROLL);//水平滚动条的高度 SbarWh:=getsystemmetrics(SM_CYHSCROLL);//垂直滚动条的宽度 lblWidth.Caption:='宽度:'+ inttostr(sbarwh)+ 'Pixels ' + ' 高度:' + intt... 阅读全文

posted @ 2010-08-02 14:38 浔阳渔夫 阅读(1121) 评论(0) 推荐(0)

运算符重载
摘要：使用Delphi编写游戏，唯一没有C++方便的就是不支持运算符重载。当你编写有关向量或者矩阵计算的程序时，不支持运算符重载的Delphi使用起来是很费劲的。但是Delphi 2006改变了这种局面，新的Delphi内核已经支持运算符重载了！本文将介绍如何使用Delphi的运算符重载功能 注意：只有Delphi 2006 和 免费版的 Turbo Delphi 支持这一功能！Delphi for W... 阅读全文

posted @ 2010-08-02 11:29 浔阳渔夫 阅读(383) 评论(0) 推荐(0)

form设置为可移动
摘要：当form的border style为bsnone时，form页面不可以移动即鼠标禁用。以下可以解除禁用.procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAN... 阅读全文

posted @ 2010-08-02 10:03 浔阳渔夫 阅读(281) 评论(0) 推荐(0)

转：快捷键
摘要：unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, RzButton;type TForm5 = class(TForm) btn1: TRzButton; HotKey1: THotKey; procedure ... 阅读全文

posted @ 2010-08-02 09:34 浔阳渔夫 阅读(300) 评论(0) 推荐(0)