使用进度条查看浏览器状态 procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,ProgressMax: Integer);beginProgressBar1.Max:=ProgressMax;if Progres...
分类：
其他好文 时间：
2014-08-01 12:57:31
阅读次数：
168
功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : ...
分类：
其他好文 时间：
2014-08-01 12:56:41
阅读次数：
174
使用API函数：声明 FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"调用constant long SB_HORZ = 0constant long SB_VERT = 1con...
分类：
其他好文 时间：
2014-08-01 12:55:51
阅读次数：
161
procedure TForm1.FormCreate(Sender: TObject);
begin Application.HintPause:=0;//立即显示 Application.hinthidepause:=100000;//if not leave then 显示100秒end;
来...
分类：
其他好文 时间：
2014-08-01 12:55:11
阅读次数：
180
//获取 TreeView选中的文件路径unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;type...
分类：
其他好文 时间：
2014-08-01 12:54:11
阅读次数：
205
//获取网页源代码
var s: string;
begin s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; //...
分类：
Web程序 时间：
2014-08-01 12:53:01
阅读次数：
298
功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : ...
分类：
其他好文 时间：
2014-08-01 12:52:51
阅读次数：
223
//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:Boolean);varSearchRec: TSearchRec;ItemTem...
分类：
其他好文 时间：
2014-08-01 12:52:21
阅读次数：
267
数组类型
数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有 24 个整数的数组：typeDayTemperatures = array [1..24] of Integer;在数组定义时，你需要在...
分类：
其他好文 时间：
2014-08-01 12:49:51
阅读次数：
188
//修改Hint的字体和颜色public{ Public declarations }procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCre...
分类：
其他好文 时间：
2014-08-01 12:47:51
阅读次数：
281
