游子日月长

摘要： The TListView Delphi control displays a list of items in a fashion similar to how Windows Explorer displays files and folders. ViewStyle := Report; Ch 阅读全文

摘要： ListView.On Item Click & ListView.On Item Double Click To be able to locate the clicked (if there is one) item when the OnClick event for the list vie 阅读全文

摘要： 以下为原代码： (这里给timer设置了1000ms)的参数，表示30秒的间[Www.aloNely.Com.Cn]隔！！ 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr 阅读全文

摘要： delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 复制代码 代码如下: proc[Www.aloNely.Com.Cn]edure TMainFrm.FormCreate(Sender: TObject); begin with MainFrm do begi 阅读全文

摘要： 在Windows高级设置中的视觉效果中可以设置是否开启“平滑屏幕字休边缘”，可以通过编程的方式来实现： SystemParametersInfo的第二个参数为1表示开启，0表示关闭。 阅读全文

摘要： function TFrmSelectPosImage.ResizeImage(var SrcImage: TImage; Scale: Integer = 1): TImage; // 缩放图片 var DstImage: TBitMap; Rect: TRect; DstWidth, DstHeight: Integer; begin with SrcImage do b... 阅读全文

摘要： Why do it? Sometimes we need a non-windowed component (i.e. one that isn't derived fromTWinControl) to receive Windows messages. To receive messages t 阅读全文