2016年4月15日
通过程序预览Office文档
我承认，标题是夸大了，就是为了吸引注意力。这里只有Word文档和Excel文档的预览代码。 Word：//此部分来源：http://princed.mblogger.cn/posts/11885.aspx//uses ActiveX;procedure TForm1.MenuPreviewClick Read More
posted @ 2016-04-15 00:42 findumars Views(488) Comments(0) Diggs(0)
修改XPMenu让ToolButton在Down=True时正确显示
XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处。我最近又对它作了一点修改。 原因是我在程序里有一个ToolButton，其Style=tbsButton，当Down=True时，XPMenu绘制的效果效果跟Down=False时一样，也就是说根本看不出它是按下的。当把Style改为 Read More
posted @ 2016-04-15 00:42 findumars Views(577) Comments(0) Diggs(0)
发掘ListBox的潜力（三）：显示即时提示（Tips）
ListBox显示即时提示（Tips） Listbox内容太长时超出Listbox宽度的部分将无法显示，一种解决方法是让Listbox产生横向滚动条，滚动显示内容（见前面的《发掘ListBox的潜力（一）：自动调整横向滚动条宽度 》），另一种方法是让Listbox以Tips的方法显示完整内容。本文要 Read More
posted @ 2016-04-15 00:41 findumars Views(950) Comments(0) Diggs(0)
从网络上下载文件的两种方法
两种方法使用的Com函数都来源于UrlMon，记得先引用。 一、URLDownloadToFile 直接下载文件到磁盘，URLDownloadToFile声明如下： function URLDownloadToFile( Caller: IUnknown; URL: PWideChar; { 下载的 Read More
posted @ 2016-04-15 00:38 findumars Views(3547) Comments(0) Diggs(0)
解决窗体闪烁问题的方法
1.在声明窗体类时加入： private procedure CreateParams(var Params: TCreateParams); override; 2.在窗体实现部分加入： procedure TFrm_Main.CreateParams(var Params: TCreatePar Read More
posted @ 2016-04-15 00:37 findumars Views(500) Comments(0) Diggs(0)