保存网页. htmluses ActiveX;procedure TForm1.Button1Click(Sender: TObject);varpersist :IPersistfile;beginpersist := (webbrowser1.document as ipersistfile);...
分类：
Web程序 时间：
2014-07-29 21:37:42
阅读次数：
319
一，首先引入“mmsystem”单元。二，启动定时器： var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三，定时器过程代码：procedure Tim....
分类：
其他好文 时间：
2014-07-29 21:33:32
阅读次数：
283
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TF...
分类：
其他好文 时间：
2014-07-29 21:30:52
阅读次数：
224
VCL BitMap Style Proceject Options->Application->Appearance
选择几个样式
使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);beginTStyleMa...
分类：
其他好文 时间：
2014-07-29 21:29:42
阅读次数：
1013
效果不正确unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ...
分类：
编程语言 时间：
2014-07-29 21:25:12
阅读次数：
271
delphi 判断是否出现滚动条 if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) 0 then ShowMessage('Vertical scrollbar is visible!'); if (GetWindowl...
分类：
其他好文 时间：
2014-07-29 21:23:52
阅读次数：
337
字符串格式参数的日期比较函数我在NT Service里，使用delphi的CompareDate函数出错，我怀疑这个函数有bug，总是说我的参数多了''，所以没办法自己弄了一个！[delphi]view plaincopy{//功能：比较日期//参数：//a:比较的日期，格式(2013-07-23)...
分类：
其他好文 时间：
2014-07-29 21:18:02
阅读次数：
246
将窗体资源分装到DLL中并且调用用Delphi生成DLL并封装窗体的示例调用Dll里面的窗体
DLL文件 library Project2;{ Important note about DLL memory management: ...
将图片转换成字符 delphi的*.dfm文件
mht的文件 //------------------------------------------------------------------------------ //jpg转换为txt字符串 //JpegToText('C:\1.jpg'...
分类：
其他好文 时间：
2014-07-29 21:06:52
阅读次数：
245
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefau...
分类：
其他好文 时间：
2014-07-29 21:04:32
阅读次数：
253
