XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处。我最近又对它作了一点修改。 原因是我在程序里有一个ToolButton，其Style=tbsButton，当Down=True时，XPMenu绘制的效果效果跟Down=False时一样，也就是说根本看不出它是按下的。当把Style改为 Read More
posted @ 2016-04-15 00:42
findumars
Views(580)
Comments(0)
Diggs(0)
ListBox显示即时提示（Tips） Listbox内容太长时超出Listbox宽度的部分将无法显示，一种解决方法是让Listbox产生横向滚动条，滚动显示内容（见前面的《发掘ListBox的潜力（一）：自动调整横向滚动条宽度 》），另一种方法是让Listbox以Tips的方法显示完整内容。本文要 Read More
posted @ 2016-04-15 00:41
findumars
Views(958)
Comments(0)
Diggs(0)
两种方法使用的Com函数都来源于UrlMon，记得先引用。 一、URLDownloadToFile 直接下载文件到磁盘，URLDownloadToFile声明如下： function URLDownloadToFile( Caller: IUnknown; URL: PWideChar; { 下载的 Read More
posted @ 2016-04-15 00:38
findumars
Views(3561)
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(501)
Comments(0)
Diggs(0)
效果见右图，OfficeXP里就是这样的风格，其实实现很简单，不必专门在网上找别人控件。 把StatusBar的SimplePanel设为False，点击Panels添加StatusPanel，把所有StatusPanel的Bevel设为pbNone、Style设为psOwnerDraw因为我们要自 Read More
posted @ 2016-04-15 00:36
findumars
Views(495)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号