delphi中文件拖入功能的实现

实现文件的拖放功能(Delphi) unit uDropFile; { 这个小程序实现的内容是比较简单的,更有难度一些的,可以在RichEdit内部, 实现对选定文字的拖放=========================如何在Delphi程序中支持文本拖放========================}//支持文件拖放关键在于两点 ://1 、使程序能接收WM_DROPFILES消息 ;//2 、在WM_DROP 阅读详情




procedure TForm1.WMDropFiles(var message : TMessage );

var
p : Array[0..254] of Char;
i : Word;


begin
 i:=DragQueryFile(message.WParam ,$ffffffff,nil,0); //返回的是文件名的字符数


 For i:= 0 To i-1  Do
   begin
    DragQueryFile(message.WParam,i,p,255); //p为获取的文件名的字符串


    ShowRecord(p);


   end;


end;

另外  还需在 public上定义这个过程

procedure WMDropFiles(var Message :TMessage) ;message WM_DropFiles;

而且还要调用SHELLAPI函数(在前面use上加入)


DELPHI 打印预览功能 在很多应用程序中,都需要程序具有打印预览功能,以避免用户由于选择不当出现打印错误。           预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围,使用较为不方便,笔者通过实践实现了用图元文件(Metafile)来实现打印预览的方法,这种方式不需要调整比例尺和视区范围。   DELPHI打印预览功能基本原理和方法: //(*本文出处:南山古桃(n 阅读详情

相关推荐

Delphi程序实现多语言功能

在我们的产品需要适用于多种语言的用户时,多语言切换功能就非常重要了,今天又一朋友咨询多语言切换功能,下面我分享多年实践总结出来的经验及代码,希望对你有帮助,我这里是使用INI文件来存取,你也可以用XML或其他等,使用只时需要在基类Form(用于继承)的FORMSHOW中另一句代码 SwitchLanguage(self ,FLangID);// FLangID为你要切换的语言代码. 这样就实现

红树枝 6793

Delphi实现文件拖拽

Delphi实现文件拖拽功能的小实例

DELPHI11 利用Android手机实现条码扫描功能

好了,整个过程全部结束,当然这只是最简单的例子,只是演示一下如何识别条码,更多的条码处理功能,比如优化,提速等需要在后面继续。安装过程中所有提示框全部按OK就可以,直到提示安装成功,那么ZXing库就成功完成了安装。点击红框标识的文件夹图标,将下载的ZXing库文件路径加入进来后,点ADD。第三步:选择下载的ZXing库路径,并按Ctrl + A进行全选,并导入。至此为止,我们的库才算是全部安装完成,可以在DELPHI 中正常引用了。2.打开相机,识别条码,并将条码内容显示在MEMO1中。

1477

Delphi鼠标拖动文件

源代码是用Delphi 7编写的,对鼠标拖动文件到控件显示做了封装 只要一句代码 SetDragAcceptFun(控件)就能让你的控件具备这样的功能,在用完后调用 FreeDragAcceptFun释放资源即可。

Delphi中巧用命令行参数实现拖拽文件到程序图标上触发功能

效果演示: 将1.txt的内容与2.txt的内容合并保存到3.txt中 核心代码:

记录日常技术经验 489

一拖即亮!Delphi 文件拖拽功能引爆你的开发体验

一般的个人小程序几乎都带拖拽功能,因为拖拽太方便了,要知道浏览文件夹的方式去打开文件有多遭罪。不依赖任何第三方,直接用代码实现

记录日常技术经验 1181

Delphi实现接收系统拖动文件(第一种方法)

Delphi 实现接受系统文件拖动

sensor_WU 博客 1304

typhon (lazarus) 下文件拖放操作

本来是个简单的问题,百度了一下没有正确答案。我就在这里写下 方法1: procedure TForm1.FormCreate(Sender: TObject); begin self.AllowDropFiles:= true; end; 方法2: 上面根据喜好,自选或全选都可(其实就是一回事)。 关键代码例子:处理OnDropFiles事件 procedure TForm1.FormDropFiles(Sender: TObject; const ...

lzgeye的专栏 523

Delphi实现应用程序文件拖放功能

TDropTarget组件允许开发者将任何一个控件设置为接收拖放操作的终端。这为实现自定义拖放逻辑提供了无限可能。它的主要作用包括:接收文件或数据:通过TDropTarget组件,应用程序能够接收从其他程序或窗口中拖放过来的文件和数据。触发拖放事件:组件暴露了多个事件,如OnDragEnter、OnDragOver、OnDragLeave和OnDrop,使得开发者可以根据拖放过程中的不同阶段编写相应的处理逻辑。TDropTarget组件具有的特性包括:跨平台兼容性。

weixin_29050829的博客 1141

Delphi实现文件下载的几种方法

笔者最近开发的系统中需要写一个下载文件功能。以前用BCB调用API写的很烦琐,忽然想起有一个API就可以搞定了,于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此,Delphi的一些控件也可以轻松实现下载,如NMHTTP,指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名,指定Get就可以下载了。下面是详细代码,均出自CSDN。

秋枫苦雪 blog 2605

DELPHI中自动重连功能的设计与实现

在当今的数字化世界,自动重连机制已成为确保IT系统连续运行的关键技术。网络或服务的短暂中断可能导致用户体验下降,甚至是重大业务损失。因此,自动重连机制的设计与实施对于保持应用稳定性和可靠性至关重要。OnConnectError事件在出现连接错误时触发。开发者可以在事件处理程序中定义错误处理逻辑。这对于需要在用户界面层面上提供更复杂反馈的场景尤其有用。以下是如何定义OnConnectError事件处理程序的示例:begin// ErrCode包含了错误代码。

weixin_36311421的博客 981

使用DELPHI实现邮件发送功能:从数据库到SMTP的完整指南

本文还有配套的精品资源,点击获取 简介:本文将介绍如何在DELPHI实现邮件发送功能,包括连接数据库、查询数据并作为附件发送的过程。内容涵盖了SMTP组件的配置、数据库访问组件的使用、SQL查询的执行、结果的文件保存以及邮件消息的构建与发送。文章还强调了错误处理、批量发送和安全性考虑。 1. DELPHI中的SMTP组件使用 在Delphi中,使用SMTP...

weixin_42518334的博客 7982

Delphi 的绘图功能

//TPen 的主要属性有四: Color、Width、Style、Mode {Color: 颜色} {Width: 宽度; 默认是 1; 如果赋予 <= 0 的值, 会使用默认值} {Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:} psSolid = 0; {实线} psDash = 1; {段线; 要求笔宽<=1}

Microblue(严 武) 5495

DELPHI实现文件加密压缩

http://blog.csdn.net/Jason009/article/details/1255787 作者 : wnhoo 标题 : 用DELPHI实现文件加密压缩 关键字: 加密压缩、Zlib、流、资源文件 分类 : 开发经验 密级 : 参赛   (评分:★★★★ , 回复: 17, 阅读: 4837)

l799623787的专栏 919

DELPHI 文件压缩加密

1、  系统功能  1)、数据压缩  使用DELPHI提供的两个流类(TCompressionStream和TDecompressionStream)来完成数据的压缩和解压缩。 2)、数据加密压缩  通过Delphi编程中“流”的应用实现数据加密,主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的;其中数据压缩部分采用1)的实现方法  3)、双

niemeiquan的专栏 1602

Delphi 实现加密与解密文件

DELPHI实现文件加密压缩 日期:2005年1月27日    作者: e梦缘 (wnhoo)Mail:wnhoo@163.com风花雪月 e梦情缘概述:在这篇文件中,讲述对单个文件的数据加密、数据压缩、自解压的实现。同样,也可以实现对多个文件文件夹的压缩,只要稍加修改便可实现。关键字:加密压缩、Zlib、流、资源文件引 言:在日常中,我们一定使用过WINZIP、WINRAR这样的出名的压缩软

smallzhuren的专栏 6279

DELPHI连接SFTP资源文件介绍:实现高效安全的文件传输

DELPHI连接SFTP资源文件介绍:实现高效安全的文件传输 【下载地址】DELPHI连接SFTP资源文件介绍 本项目提供了完整的DELPHI连接SFTP的代码资源,包含dll、pas和dcu文件,支持有密码登录及无密码的Public Key和Private Key登录方式。代码已在Delphi7环境下测试通过,功能全面...

gitblog_06744的博客 663
上一篇: StringGrid去掉第一行第一列的蓝色框
下一篇: c语言函数指针的定义
x_weiya
博客等级 码龄11年 1粉丝 1原创
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值