ddd Read More
posted @ 2016-04-15 20:16
findumars
Views(369)
Comments(0)
Diggs(0)
复制代码uses FileCtrl; procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Read More
posted @ 2016-04-15 05:03
findumars
Views(785)
Comments(0)
Diggs(0)
我承认，标题是夸大了，就是为了吸引注意力。这里只有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，其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内容太长时超出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)
效果见右图，OfficeXP里就是这样的风格，其实实现很简单，不必专门在网上找别人控件。 把StatusBar的SimplePanel设为False，点击Panels添加StatusPanel，把所有StatusPanel的Bevel设为pbNone、Style设为psOwnerDraw因为我们要自 Read More
posted @ 2016-04-15 00:36
findumars
Views(493)
Comments(0)
Diggs(0)
这是以前写的代码，自绘XP风格的菜单，硬盘坏了后以为没了，最后写的一个软件要自定义风格，“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来，即可共享又可作为备用 :) 把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedD Read More
posted @ 2016-04-15 00:35
findumars
Views(403)
Comments(0)
Diggs(0)
鼠标拖放插入点提示 鼠标拖放是Windows常见的操作，比如拷贝文件就可用拖放方式进行。在我们编写的应用程序中，有时为了方便用户操作需要支持鼠标拖放。对于大部分的VCL控件只要鼠标将DragMode设为dmAutomatic，就可以在OnDragDrop、OnDragOver和OnEndDrag中处 Read More
posted @ 2016-04-15 00:33
findumars
Views(616)
Comments(0)
Diggs(0)
《自绘ListBox的两种效果》一文帖出之后，从反馈信息来看，大家对这种小技巧还是很认同。接下来我将继续围绕ListBox写一系列的文章，进一步发掘ListBox的潜力，其中包括：自动调整横向滚动条宽度、即时提示（Tips）、拖放插入点提示等，并在最后制作一个在滚动区内的ListBox组。 自动调整 Read More
posted @ 2016-04-15 00:32
findumars
Views(1536)
Comments(0)
Diggs(0)
本文利用Listbox自绘实现了两种特殊效果（见图），左边的风格是自己突然灵感触发想到的，右边的风格来自＂C++ Builder 研究＂的一个帖子，老妖用BCB实现了，这里则用Delphi实现它。演示图片：// unit DrawListItem; interface uses Windows, M Read More
posted @ 2016-04-15 00:27
findumars
Views(1797)
Comments(0)
Diggs(0)
最近在程序中增加了每日一帖的功能，搜索一下网站的程序，发现大部分是用Memo实现，而我用的是TWebBrowser基于HTML做，故帖出来共享一下。 PAS源码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl Read More
posted @ 2016-04-15 00:12
findumars
Views(481)
Comments(0)
Diggs(0)
在我们编写程序的时候可通过IDE自带的调试环境捕捉到异常(Except)错误，并能查看到相关的信息以便我们修正程序中的问题。但当软件被发布出去后，因为所部署运行的环境与我们的调试环境有很大区别，即使在是调试环境中测试过非常完美的程序，也很难保证在实际运行中不出现任何错误。当程序发生错误它往往是抛出一 Read More
posted @ 2016-04-15 00:08
findumars
Views(1239)
Comments(0)
Diggs(0)
使用Dephi进行图像处理可以有多种方法，最常用的应该算是TBitmap，它提供方便的图像存取能力，结合Canvas可进行画线、画圆、图像拷贝等操作。不过在进行大量的图像处理操作时，为了获得更高的速度，我们希望能够直接对图像缓冲区进行读写。查阅Dephi的帮助手册没有发现直接取得整个图像缓冲区的功能 Read More
posted @ 2016-04-15 00:06
findumars
Views(969)
Comments(0)
Diggs(0)
procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.Loca Read More
posted @ 2016-04-15 00:04
findumars
Views(423)
Comments(0)
Diggs(0)
Windows支持多桌面，Delphi了支持多桌面，今天让程序也支持上多桌面了。 程序运行时会在标题栏最小化按钮旁边显示一个按钮（支持Theme效果），按钮引出一个菜单供用户选择要显示的桌面位置，通过它即可在多桌面间自由往返。（PS:可惜CSDN现在不能上图了。） 演示程序如下： [c-sharp] Read More
posted @ 2016-04-15 00:03
findumars
Views(640)
Comments(0)
Diggs(0)
为了排查一个Bug今天无意看了看Indy源码，结果吓了一跳。TIdIOHandler.ReadLongWord函数用于读取通讯数据并转换成LongWord类型返回，它做用了一种危险的做法可能会导致数据传输不正确。 函数源码如下： function TIdIOHandler.ReadLongWord( Read More
posted @ 2016-04-15 00:02
findumars
Views(530)
Comments(0)
Diggs(0)
虽然现在一机多网卡已经很普遍（像Notebook带有线、无线、蓝芽等），但是找一个现成的能够一次过读出所有网卡IP地址的函数实在是难，无奈自己写了一个，好东西谁用谁知道。 [c-sharp] view plain copy //uses WinSock; type PAddrInfoW = ^ADD Read More
posted @ 2016-04-15 00:01
findumars
Views(470)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号