如何检测 TTabControl 中是否单击了不同的选项卡?
我只想知道在单击 TTabControl 时是否单击了当前选项卡以外的其他选项卡。非常欢迎提出想法。 PS 请不要索要代码。我只是寻求想法。另外,在我的公司…
在 Delphi 7 中旋转 OCX 控件?
我正在使用 PaperPort OCX 在 Delphi 7 中查看 .MAX 文件。问题是,大约一半的图像方向错误,并且 OCX 没有内置的旋转图像的方法,只能放大图像。 有…
除非中间有一个 MessageBox,否则 TThread 不会完成它的工作!
我创建了一个 TThread 类来执行一些套接字操作,问题是,除非我向其中添加 MessageBox,否则代码无法工作,除非我在其之前放置 MessageBox 调用,否则…
在 Windows 和 Delphi 中实现应用程序的可移植性?
我们的这个应用程序不会写入 Windows 注册表或将其配置文件(例如 INI 文件)存储在用户的配置文件中;相反,它将其配置文件存储在程序的目录中。维基…
也在 TWebBrowser 中打开新页面
我创建了一个带有 twebBrowser 的应用程序。问题是,当我单击某个链接(例如 gmail)时,它会在我的默认浏览器(即 IE)的新窗口中打开。我如何让它像…
THotKey 在 Delphi XE 下不再工作
我已将一个旧项目从 Delphi 7 升级到 Delphi XE。 该项目有(除其他外)一些 THotKey 控件。在 Delphi 7 下,THotKey 控件工作正常。但在 Delphi XE …
写保护 USB 驱动器上出现 ShellExecuteEx 错误?
我正在尝试在写保护的 USB 驱动器上测试应用程序,我想使用 ShellExecuteEx API(我需要使用此 API 调用,因为我需要 lpVerb := "runas")调用来执行…
Delphi XE 中的集合的工作方式与 D7 中的工作方式不同
我在 Delphi 7 程序中有这个常量。它们不在 Delphi XE 下编译。 TYPE TSingleChar= AnsiChar; CONST noData: TSingleChar= '.'; Ambiguity= ['x']; DN…
Delphi中如何通过所有子目录搜索文件
我实现了这段代码,但我再次无法搜索子目录。 procedure TFfileSearch.FileSearch(const dirName:string); begin //We write our search code here if…
我如何在Delphi中使用jclcompression,有例子吗?
我昨天安装了 jclcompressin 组件。当我使用它时出现错误“加载到7z.dll”。 有没有人使用 jclcompressıon 单元的示例代码?就像我压缩一个文本文件…
从数据模块访问选项卡之一上的组件
也许微不足道,但似乎无法弄清楚...... 我正在使用 RAIZE 组件,即 rzPageControl1,我的一张工作表称为 PRO.It (rzPageControl1) 驻留在 Form1 上。 …
如何将字符串转换为十六进制而不改变其长度?
我将字符串转换为十六进制,但是当我转换时,十六进制代码有 2*length(string) 我可以这样做“字符串长度=十六进制字符串长度”吗? 我发现这段代码有…
如何将字符串反转到 bin?
如何将 bin 转换为字符串? 例如: string:='s';----------->bin:='0011'; 如何反向转换? 我的 stringtobin 代码是: function StrToBinStr( aString…
如何在 Delphi 中使用大文件?
当我在内存流或文件流中使用大文件时,我看到“内存不足”错误 我该如何解决这个问题? 例子: procedure button1.clıck(click); var mem:TMemoryStr…