堆栈内存溢出
cost 238 ms
当 D7 exe 具有清单文件时，有时表单运行时（Tbutton、Radio、复选框等）缺少 Common-Controls

[英]Sometimes Common-Controls are missing from the form run-time (Tbutton, Radio, checkbox, etc) when D7 exe has the manifest file

当我将鼠标移到它们上面或通过代码使整个表单无效/重新绘制时，丢失的按钮会重新出现在屏幕上。 我已经做了一个修复，如果按下 ALT 键（显示快捷方式），这些将被重新绘制，但是当 ALT 没有按下时，问题甚至会随机出现。 当我删除按钮下方的清单文件时，显示正常。 需要清单，以便旧式按钮看起来是圆形的。 ...

如何使弹出窗口出现在 App 的 TASKBAR 按钮的确切位置

[英]How to make a popup appear on the exact location of App's TASKBAR Button

当 Application.OnActivate 发生时，我目前在 SysTray 图标附近弹出一个弹出窗口。 但是我现在需要在任务栏（开始菜单旁边）上单击应用程序按钮的地方弹出它。 如何找出刚刚单击的我的应用程序任务栏图标的确切位置？ 我知道我可以简单地允许应用程序表单出现并要求用户单击一个弹出窗 ...

"UTF8Encode 在不同系统上的结果不同（UTF8Decode）"

[英]UTF8Encode different result on different systems (UTF8Decode)

我遇到了一个有趣的异常。 我通过 RPC 接收到 WideString 文本，我需要将其转换为 ANSIString 并根据文本的哈希检查文本中的签名。 在基于英语的 Windows 上（签名生成服务器也是基于英语的）它可以正常工作，但在其他基本语言系统上（到目前为止，它发生在俄语和土耳其语中）存在 ...

当没有可用的可见表单时如何在任务栏中始终显示图标

[英]How to show icon always in taskbar when there is no visible form available

我有一个没有任何任务栏图标的系统托盘应用程序。 现在大多数系统托盘图标都是隐藏的，我想更轻松地访问应用程序。 没有使用 Application.FormCreate 创建的 forms 所以 Delphi 不能显示图标本身。 即使没有可用的可见表单，如何始终在任务栏上显示正常的应用程序图标？ 我想捕 ...

在 Win10/11 下使用带有 Delphi 7 应用程序的 Modern IFileDialog 打开/保存对话框

[英]Using Modern IFileDialog Open/Save dialog with Delphi 7 apps under Win10/11

我想对我的 Delphi 7 应用程序的 GUI 进行现代化改造，我已经有了.manifest 文件，它看起来不错，但是 Fileopen 对话框很糟糕。 如何让它们变得现代？ 我目前正在使用此代码。 使用 IFileOpenDialog 需要什么，如何为此编译 header，或者对 dialogs ...

在 Delphi 7 的表格上显示动画.ani cursor

[英]Showing an animated .ani cursor on a form in Delphi 7

我的应用程序正在使用单独的线程在后台从数据库中加载列表项。 在加载过程中，用户可以与应用程序交互，所以我不想更改默认的 cursor。 尽管如此，为了直观地显示加载过程，我想在我的表单上显示 Windows 忙碌（沙漏，IDC_WAIT）cursor，就像动画图像一样。 最简单的方法是什么？ 我正 ...

如何获得 SMAR.T. 来自磁盘的信息？

[英]How to get S.M.A.R.T. info from disks?

我尝试了在 Google 中找到的代码，但没有任何效果，而且在大多数情况下它甚至无法编译（缺少单元、未声明的数据类型等）。 我终于找到了一些看起来完整但显示“句柄无效”的错误： http://rsdn.org/article/delphi/SMART.xml您可以从这里下载文件：Z80791B3A ...

Python 代码到 Delphi 7 转换：字节序

[英]Python code to Delphi 7 conversion: endianess

我正在尝试将此代码转换为 Delphi 7。在 Python 中，它将十六进制字节转换为大端： 到目前为止，我的 Delphi 代码：Var Keydata:array of integer; Setlength(keydata,8); While i <= Length(data)-1 d ...

为什么在父 TTreeview 析构函数之前调用 TTreeNode 的析构函数？

[英]Why the destructor of TTreeNode is called BEFORE parent TTreeview destructor?

深表歉意，我很努力，但我找不到任何合理的解释。 和 TTreeview 的后代，其中 TMyTreeNode 是动态创建的。 我重写了动态方法procedure TMyTreeview.Delete(Node: TTreeNode); 为了实现特定的行为，当要删除 TMyTreeNode 时。 我 ...

当 TTreeview 结构发生变化时，如何捕获事件？

[英]How to capture an event, when TTreeview structure changes?

我正在制作 TTreeview 的后代，并且我想在 TTreeview 结构发生变化时实现一个事件。 例如，一个 TTreeNode 从一个 position 移动到另一个，或者它成为任何其他 TTreenode 的子节点。 例如，当我打电话时： Treeview1.Selected.MoveTo ...

如何将 Field1 和 Field2 从 TADOQuery 加载到 TTreeView？

[英]How can I load Field1 and Field2 from TADOQuery to TTreeView?

我希望将来自TADOQuery的信息加载到TTreeView中。 例如，我希望将其加载为Field1->Add in Table1和Field2->AddChild with buttonClick 。 但是当我运行代码时，我收到一个错误： 模块“TRV2.exe”中地址 004361 ...

Delphi 10.4.2 FMX：如何编写用户在 android 手机上按下返回按钮而不是在消息对话框中选择的情况？

[英]Delphi 10.4.2 FMX: How to write the case where the user press return button on android phone instead of choice in message dialog box?

这是我一直在尝试的一些代码片段，当用户单击手机上的返回按钮时，我不想让用户继续并关闭应用程序。 ...

TIB_Script 运行大型脚本

[英]TIB_Script run large script

我遇到了一个问题，即 IB_Script 在运行较长的脚本时返回错误： SQL 错误代码 = -104 命令行意外结束 - 第 18 行，第 52 列只要脚本中的字符数不超过 65,536 个字符（当前为 66.186），就不会出现此类错误消息。 我使用以下代码上传 IB_Script： 有没有人 ...

如何使用 TOposPosPrinter 控件打印 Code-128 条码？

[英]How can I print a Code-128 barcode with a TOposPosPrinter control?

请帮忙！ 我正在尝试使用来自 CRM/RCS-Dayton 的 TOposPosPrinter 控件打印 Code-128 条码。 虽然我在打印纯文本、打印徽标和剪纸方面没有任何问题，但不幸的是，条形码根本不起作用。 这只是我正在使用的代码片段，除了带有 OPOSPosPrinter1.Pr ...

C# Process.Start 打开外部 exe 的 2 个实例

[英]C# Process.Start opens 2 instance of the external exe

我想打开一个外部 exe 文件（用 Delphi 编写），将它放在屏幕的顶部和特定位置。 这段代码用于： 但问题是它打开了应用程序的两个实例。 一个在顶部运行良好，但不在所需的位置。 第二个在第一个后面运行，没有控件和 UI，有黑色背景。 关闭应用程序将关闭第二个应用程序并保持第一个运行。 ...

如何在过程中将类引用（元类）作为参数传递？

[英]How to pass class reference (metaclass) as a parameter in procedure?

有两个对象： TFoo ， TFoo2 。 还有一个类参考： TFooClass = class of TFoo; 两者都是TPersistent后代。 他们有自己的构造函数： type TFoo = class(TPersistent) private FC:Char; ...

从后台强制应用程序 Window 到前台（通过来自其他进程的消息）

[英]Force Application Window to Foreground from Background (via msg from other process)

我将此代码与 Mutex 和自定义消息一起使用，以在用户尝试启动第二个实例时强制第一个应用程序实例出现在屏幕上。 我的应用程序必须只有 1 个实例在运行。 这段代码似乎在 Win10 下无法正常工作，它使应用程序图标在任务栏上轻弹，但实际 Window 并没有出现在其他 Windows 之上。 ...

如何使用后台进程从 TWebBrowser 打印 PDF 文件？

[英]How to print a PDF file from TWebBrowser with a background process?

我在TWebBrowser有一个 HTML 文档。 我需要将此文档转换为 PDF 文件并将其作为附件通过邮件发送。 我发现的方法是用 PDF 打印机打印TWebBrowser内容。 有没有办法在不显示对话框并始终使用PDF打印机（后台进程）的情况下做到这一点？ 考虑到该功能由 3 台计算机使用，并且 ...

组件代码中的 TThread -Delphi 7

[英]TThread inside component's Code -Delphi 7

我创建了一个新组件来播放波形和 MP3 文件，该组件包含用于跟踪播放位置的 Tprogressbar 和播放按钮，我通过在循环内使用 TIdThreadComponent 实现了这一点，这些组件工作正常，但我想改用 TThread TIdThreadComponent 的，在此先感谢您.. ...


排序:
质量:
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM