Delphi
关注
分享
扫一扫
文章平均质量分 53
flyforlove
这个作者很懒，什么都没留下…
展开
-
扩展TImage控件，使其有鼠标移进移出的事件。
unit MyImage;interfaceuses SysUtils, Messages,Classes, Controls, ExtCtrls;type TMyImage = class(TImage) private { Private declarations } FOnMouseLeave: TNotifyEvent; FOnMouseEnter: T原创 2004-11-11 10:42:00 · 1277 阅读 · 0 评论 -
用Indy控件，通过需要简单认证的SMTP服务器，发送带附件的Email。
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBase原创 2004-11-09 20:34:00 · 1575 阅读 · 0 评论 -
使用dsofile读取文件摘要
在微软网站上下载dsofile的安装包，安装后注册dsofile.dll文件。打开Delphi 7.0，从菜单“Project”-〉“Import Type Library”中导入此ole。新建工程，从控件的ActiveX页面选择ToleDocumentProperties添加到窗体上，对文件摘要属性进行读取修改。procedure TForm1.Button1Click(Sender: TObj原创 2005-03-04 17:05:00 · 3183 阅读 · 3 评论