haiou327’blog

var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringLi

unit DynamicCreateControlsPas;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: T

Delphi中易混淆的概念一、Owner和Parent的区别： 　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： 　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， 　　(2)在Panel1上放一Button1； 　　(3)在Form1上放一Button2。 　　现在如果移动Panel1,则Butt

Create(nil);//需要自己释放   Create(Self);//当Self释放时自动触发释放Create(Application);//当Application释放时自动释放Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存，其他很多内存泄漏就是忘了手工释放内存Create(Self);//由self对象负责释放创建的对象，只要self没有释放掉，

修改FileCtrl TDirectoryListbox.ReadDirectoryNames函数 再另存FileCtrl到当前工程项目当前目录function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string; //增加读取隐藏系统文件 DirectoryList: TStringList): Integ

{delphi取得文件图标并在TListView中显示技术要点：　　一、使用SHGetFileInfo函数获取指定扩展名的文件图标。需要引用ShellAPI单元。　　二、使用TStringList来保存扩展名与其图标的索引号。当添加一个文件名至TListView后，我们已经取得了其图标，再次添加同样扩展名的文件时，不需再次获取其图标，只要从该TStringList中取得其图标索引号即可}

usesshellApi;var icon: TIcon; FileName: string; FileInfo: TSHFileInfo;begin if OpenDialog1.Execute then begin ListView1.GridLines := True; ListView1.ViewStyle := vsReport; try

unit LauncherUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, ComCtrls, CommCtrl, ShellAPI, ImgList, StdCtrls;type

var j, k, i: integer; sName: string;begin k := 0; for j := 2 to 5 do if not Assigned(TScrollBox(FindComponent('s' + inttostr(j)))) then begin with TScrollBox.Create(Self) do

varisNo:boolean;ChB: array[1..5] of Tcheckbox;procedure Tform1.checkonClick(sender: TObject);begin if (sender as TCheckBox).Checked then ShowMessage((sender as TCheckBox).Caption + ' 已选中');

{ KOL MCK } // Do not remove this line!{$DEFINE KOL_MCK}unit main;interface{$IFDEF KOL_MCK}uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckOb

vars:string;i:integer;ListItem:TlistItem;beginListitem:=listview1.Items.Add;listitem.Caption:=牛年大吉;listitem.SubItems.Add(牛);listitem.subitems.Add(气);listitem.subitems.Add(冲 )

Delphi ListView基本用法大全<br /><br />//增加项或列(字段)<br />ListView1.Clear;<br />ListView1.Columns.Clear;<br />ListView1.Columns.Add;<br />ListView1.

ListBox增加横向滚动条sendmessage(lst1.Handle,lb_sethorizontalextent,lst1.Width+2,0);

把窗体中所有的Button的Enabled置为Falseprocedure TForm1.FormCreate(Sender: TObject);var index:integer;beginFor Index:=0 to ControlCount-1 do

uses Registry;procedure TForm1.FormCreate(Sender: TObject);var Reg: TRegistry;begin reg := Tregistry.Create; Reg.rootk

unit uCnPingDemo;{* |================================================================================* 软件名称：CnPing CnIP 测试程序* 单元名称：CnPing CnIP 测试程序主单元* 单元作者：胡昌洪(Sesame) sesamehch@163.com*

unit DropEdit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi;type TMyNotifyEvent = procedure (Sender: TObject;FileNames:TSt

type TEdit = class(StdCtrls.TEdit) procedure WndProc(var Message: TMessage); override; end; TForm1 = class(TForm) edt1: TEdit; procedure edt1ContextPopup(Sender: TObject; Mouse

varh:integer;F:TsearchRec;d,t,i:integer;FindFileList:Tstringlist;FileSize:Tstringlist;beginFindFileList:=TstringList.Create; FileSize:=TstringList.Create; d:=findfirst(c:/*.*,