问题标签 [delphi-4]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
2 回答
4153 浏览

delphi - 退出后程序继续运行

如果我单击表单右上角的 X,我的程序将继续运行。这也发生在 Delphi 4 中,然后我被迫进行程序重置,因为如果我不这样做,它将不会重新编译。主窗体代码:

登录表格代码:

设置表格代码

项目数据:

当我关闭它仍然运行的应用程序时,你能帮我解决这个问题吗?

0 投票
0 回答
243 浏览

delphi - 将数据加载到 420 按钮或类似对象中

我有一个程序需要显示剧院公司的座位计划。它希望它能够轻松显示所有有 420 个座位的座位。这些座位由 14 排组成,每排 30 个座位。我希望能够将这些保存回文件中。Dat 或 Inifile,尽管 Inifile 会更轻松,因为我已经为设置创建了。我希望能够点击屏幕上显示的座位,它会显示关于坐在那里的人的所有信息,还有名字等等。该程序必须能够关闭并重新加载数据。我不确定我最好的选择是否是向表单添加 420 个按钮并为其编写一个函数,然后在每个按钮上调用它。如果被占用,按钮将显示红色,如果可用,则显示绿色。稍后将调用这些数据以放置在将要打印的票上。数据应该还可以输入席位、采购商名称、生产名称、Row、Seat number等。这样做最方便的是什么?

0 投票
6 回答
10524 浏览

delphi - 如何释放 TList 的内容?

我在 Delphi 4 中有这段代码。我创建了 10 个类型的对象T_Charge(见下文),我将它们添加到TList名为myList. 该T_Charge类型引用了三个类型的对象T_Platte(见下文)。

释放所有 10 个对象的所有内存的正确方法是什么?因此,对于每个我想释放P1P2、等的内存的对象P3F_Treated以及其myCharge自身的内存。我尝试了一切,但不断出错。

0 投票
1 回答
818 浏览

delphi - 使用 Brother 打印机打印为垃圾的 PDF

可能重复:
Delphi:如何在不显示的情况下打印 PDF?

在不同的打印机上打印时遇到不同的行为。在我的打印机上,PDF 打印是正确的,但是对于“Brother”打印机,相同的 PDF 打印为乱码(文件内容被打印)。如果使用 Adob​​e Reader 将相同的 PDF 文件直接发送到打印机,则在兄弟打印机上也可以正确打印。

为了打印 PDF 文件,我使用 LoadFromFile 函数读取了 TMemoryStream 对象中的内容。指定的 docinfo 值如下 -

之后使用 WritePrinter 函数,将命令发送到打印机句柄。

在我看来,好像兄弟打印机无法读取 PDF 编码格式。

感谢您在这方面的任何帮助。

PS:我的应用程序在 Delphi4 中。

0 投票
1 回答
1927 浏览

delphi - 以编程方式将列添加到 TdxDBGrid(Devexpress 的 Expressquantumgrid)

对于一个客户,我一直在为 DevExpress 的这个非常旧的版本(2.1)的 ExpressQuantumGrid 进行开发。在 Delphi 4 中。我找不到任何关于它的文档。

基本上我只需要创建一堆 TdxDBGridMaskColumn 并在运行时将它们“插入”到网格(TdxDBGrid)中。从代码完成弹出窗口中,我无法弄清楚如何。

谢谢!

0 投票
0 回答
189 浏览

delphi - IWebBrowserDisp ole2 界面无法将 IE 窗口打开到屏幕前面

在 Windows 7/8 中,这个非常好的 ole2 界面 IWebBrowserDisp 不再正常工作,由于某种原因,它现在在实际当前正在运行的 delphi 应用程序后面打开 IExplorer 窗口,而不是像以前那样在屏幕前面工作。

这使得应用程序失败,因为用户无法看到打开的网页,除非手动切换到 Iexplorer 并找到正确的窗口。

我用来启动链接的代码是:

这个问题在旧版 Windows 中不存在,或者在我使用 Delphi IDE 时(我使用 Delphi4 并以 ADMIN 身份运行)。

0 投票
1 回答
278 浏览

delphi - 哪些图标资源与 Windows 8 相关?

哪些图标资源与 Windows 8 最相关?我目前在 res 文件中有最大的图标 48x48 x256 颜色,我应该为 Win8 有一个更大的图标吗?

0 投票
1 回答
275 浏览

delphi - Stringlist 排序进度条

我有一个 TListBox 加载时可以有一个很长的字符串列表,所以我让操作员通过单击一个按钮来启动一个排序。有时,排序可能需要将近一分钟,操作员会想知道发生了什么。

有什么方法可以使用 TProgressBar 来显示正在发生的事情吗?如果是这样,怎么做?

或者

我可以在开始时将屏幕变灰(视觉上禁用),然后在排序完成后将颜色变回白色吗?如果是这样,怎么做?

谢谢

0 投票
0 回答
287 浏览

delphi - Delphi TImageList 位图自发地将自己从彩色转换为黑白

我有一个问题,图像列表中的 16x16 位图损坏并显示为单色黑白图像。这往往发生在 IDE 中的会话之间,因此在将项目保存到磁盘、退出 IDE 并再次打开项目后,您会发现图像已经发生了变化! 这需要重建图像列表并且非常烦人。附上前后示例图像。

之前和之后的图像

该项目正在使用安装在两个操作系统上的 Delphi 4 开发(并在 WindowsXP 和 Windows 7 x64 之间穿梭)。该问题在 XP 中很少出现,而在 Windows 7 中经常出现。有人知道这里发生了什么吗?

0 投票
1 回答
109 浏览

delphi - 如何使用 Delphi 4 将任务条目添加到任务栏?

如何使用 Delphi 4 将任务条目添加到 Win 7 应用程序任务栏(右键菜单)?

我无法将项目从 Delphi 4 更改为更新,但需要添加 Win 7 任务栏支持。