delphi-7

4热度

4回答

我很难想出解决以下问题的方法。让我说明它首先形势我有26个项目（在这个例子中，在一般的数量是不知道..），但只有12个可以在同一时间可见。我也有一些导航元素（绿色方框）的紫色和绿色框宽度是固定的，但紫色高度可以根据内容而变化.. 一切都很正常，我可以用CSS来做。我正在为我的项目使用无序列表（浮动项），并且我指定了前两个<li>元素作为导航项。首先有左浮动和右浮动。这一切都起作用，剩下

-2热度

1回答

在代码中的标签页之间导航时遇到问题

我在代码中的标签页之间导航时遇到问题。我有被点击在onclick事件的按钮下一个标签页应该成为活动标签页我要找的代码放在按钮，这将使活动标签页从当前标签页移动到下一个标签页。我正在使用两页的页面控件。

0热度

1回答

如何将一个父对象分配给仅使用父对象名称的对象

基本上，我有8个面板，我想通过使用循环为其中的所有图片分配一个图片，以便使用TComponent变量和图片我在运行时创建的。但我无法找到一种方法来使用此字符串（'pnlDisplay'+ inttostr（i））将该图像分配给父级。所以我的代码看起来是这样的： var imgPanel : TImage; cPanel : TComponent; begin fo

-1热度

1回答

使用ReWrite在Delphi 7中进行文件访问错误编程（f）

花了2个小时看着类似的问题，并使用了IsFileInUse，并且确定它已被使用。它使用MapObjectsLt加载一个jpg图像，虽然我确实了解一些文件锁定，但是这个软件在我们使用的Windows 7下运行得很完美。现在我已经转移到新的笔记本电脑上的Windows 10，它现在只出现一个错误。我自己和Windows资源管理器是我知道的唯一用户，因此没有其他人拥有打开时定位图像的小文本文件。我认为区

-2热度

1回答

如何将字符串转换为日期以便操纵数据库

我是新来编码和有一个学校项目。我想将字符串转换为日期以更新/删除数据库中的记录，但它不断给我一个Data type mismatch in criteria expression错误。数据库中的字段（预订日期）被验证为日期，我试图将我的字符串输入转换为日期格式，然后从我的数据库中删除它的整个记录。 sdelete:= combobox.text; //shows options of dat

-3热度

1回答

德尔福正确使用指针

如果我有一个指针集中到FormActivate(Sender: TObject); - MyPtr := @FormActivate; - 我如何与我选择的发件人运行FormActivate。我不明白如何添加发件人。

-2热度

2回答

For循环在达到目标后继续前进。德尔福

这个问题只出现在数字上，更大，然后12包括。这两张照片在一次拍摄。它甚至可能如何？ For循环必须从0到12-1 = 11，不是吗？不过，当我使用while循环代替时，它工作正常。是我的错还是德尔福的？ P.S.密码下行。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr

0热度

1回答

如何从Delphi7中正确打开.bat文件（例如，打开RandomApp.exe）？

我搜索了很多，我不完全找到正确的答案。目录：项目（该文件夹包含Delphi代码和一个名为 “RunThis” RunThis RandomApp.exe 运行文件夹。蝙蝠 CONFIG.TXT 代码run.bat文件 start %cd%\RandomApp.exe pause Delphi 7中（执行上的按钮的点击此代码。） ShellExecute (application.hand

0热度

2回答

设置InfoTip的位置

我的TListView控件已启用ShowHints并处理OnInfoTip事件。弹出信息提示框中的消息在OnInfoTip处理程序中设置。但是，弹出信息提示框的位置相对于鼠标悬停在列表中的项目上时的位置。似乎没有办法自定义位置。是否可以设置提示弹出窗口的位置，例如在TListView的特定区域中，甚至是在TListView控件边界之外的窗体中的其他位置？理想情况下，我想以最小化（或消除）模糊TL

0热度

1回答

Windows小系统图标高度不正确

我在Windows 10上运行，但使用Delphi 7（是的，我知道这是相当古老）。我想使用Windows中的系统图标，并通过定义TImageList称为SystemIcons了关于这个，我初始化如下： var fileInfo: TSHFileInfo; begin SystemIcons.Handle := ShGetFileInfo('', 0, fileInfo,