可以使用以下代码在Delphi中显示一个MessageBox对话框，其中包含"确定"和"取消"按钮： var ButtonSelected: Integer; begin ButtonSelected := MessageDlg('确定要执行此操作吗？', mtConfirmation, [mbYes, mbNo], 0);

Delphi 2024年12月20日  24

本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下： const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Tim

Delphi 2024年02月05日  124

在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？ 当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行模块的输入表，并设法找出任何需要的DLL，并将它们映射到进程的地址空间中。由于输入表中只包含

Delphi 2024年01月29日  140

1， 怪异现象：字符串相加操作不正常！ 以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！ 采用showMessage进行输出，看看结果如何？ 结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。 2，怪异原因：字符串中含有\0，即字符串终止符 以上现象已经看出，字符串加法失效的原因可能是含

Delphi 2024年01月23日  120

var Edit: TComponent;begin Edit := FindComponent("Edit1"); If Edit is TEdit then TEdit(Edit).Text := '你好 Delphi7';end; RTTI(RunTime Type Information): 运行时类型信息, 就是在程序运行后也能得到类型(譬如 TButton 类)的

Delphi 2023年12月19日  158

mormot2框架中有个THttpServer类，它有一个Router属性，定义如下： property Router: TUriRouter read fRoute; Router是添加路由的入口点，它有和http协议对应的get, post, put, delete等方法，这些方法可以添加路由，下面常用的get方法定义。 procedure Get(const aUri

Delphi 2023年12月17日  124

本文实例讲述了Delphi7中群发Email邮件的方法。分享给大家供大家参考。具体分析如下： 这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来给大家参考一下： 总的思路是： 1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载； 2、需要使

Delphi 2023年11月26日  131

本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下： 首先引用jpeg 1.显示图片： if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text

Delphi 2023年10月21日  157

在看代码之前先给大家附上效果图： 废话不多说了，直接给大家贴代码了。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm1

Delphi 2023年09月25日  128

Delphi 实现软件自动升级的功能 原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件，然后逐一下载。 本程序名字为

Delphi 2023年09月05日  139