摘要：
TTreeView组件遍历磁盘目录
实例说明
TTreeView组件是一个以分枝结构或者说树状结构显示数据的组件，以该组件显示数据具有较好的等级关系和逻辑层次，并且易于操作。在组件中显示的数据结构与系统中目录的结构非常相似，所以本例使用该组件设计一个磁盘目录查看工具。运行本例，在窗口右边选择目录或路径就可以在TTreeView组件中列出所有选择目录中的子目录和文件。实例运行效果如图1所示。 图... 阅读全文
摘要：
菜单的项目是否可用 TPopupMenu.OnPopup事件
把代码放在这里面判断 // ------------------------------------------------------------------------------
procedure Tfrm_Main.pm_EditorPopup(Sender: TObject);
begin ... 阅读全文
摘要：
Delphi在Webbrowser中插入 HTML/java script代码使用方法将下面的代码赋值到1个记事本里保存，然后保存为xxx.htm就可以看到效果使用PasteHtml实现功能的事件 Windows Media播放器 mp3 mp4 Windows Real Player Flash Player Mid背景音乐 图片的方法 ( (Web... 阅读全文
摘要：
调用查找对话框 关键点
HTMLID_FIND = 1; //查找对话框
HTMLID_VIEWSOURCE= 2; //用记事本查看源代码
HTMLID_OPTIONS =3; //Internet选项 实现过程 uses ActiveX; const CGID_WebBr... 阅读全文
摘要：
//Delphi动态建立WebBrowerunit Main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;pr... 阅读全文
摘要：
//获取 TreeView选中的文件路径unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)TreeVie... 阅读全文
摘要：
{获取C盘的卷标格式化硬盘卷标改变} //GetHardDiskSerial('c:\') functionGetHardDiskSerial(Drive:string):string; varVolumeSerialNumber:DWORD; MaximumComponentLength:DWORD; FileSystemFlags:DWORD; begin ... 阅读全文
摘要：
//获取网页源代码
var s: string;
begin s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码, 包含body标签 s := WebBrowser1.Ol... 阅读全文
摘要：
//修改Hint的字体和颜色public{ Public declarations }procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCreate(Sender: TObject);beginform1.Hint... 阅读全文
摘要：
在 DragDrop 的时候，滚动 TreeView
当高度不够的时候
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);beginif (y < 15) then{On the upper ed... 阅读全文
摘要：
TreeView1.Selected.Expand(False); //选中的展开0级 子级不展开 TreeView1.Selected.Expand(True); //全部展开来自为知笔记(Wiz) 阅读全文
摘要：
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; procedureButton1Cli... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject);
begin Application.HintPause:=0;//立即显示 Application.hinthidepause:=100000;//if not leave then 显示100秒end;
来自为知笔记(Wiz) 阅读全文
摘要：
功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : result:='B';$B2C1..$B4ED : result:... 阅读全文
摘要：
功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : result:='B';$B2C1..$B4ED : result:... 阅读全文