firemonkey

1热度

2回答

我需要一些例子如何改变FireMonkey中我的list view每行的颜色文本项目。我尝试类似的东西，但没有成功。 for i := 0 to lvArtikli.ItemCount-1 do begin AItem := lvArtikli.Items.AppearanceItem[i]; pk := AItem.Data['txtPK'].AsS

2热度

1回答

Delphi - 如何将位图保存到SQLite数据库中的BLOB字段

我想将TBitmap图像的数组添加到ClientDataSet的不同记录（在ftBlob字段中），然后将这些记录保存到SQLite数据库。 BLOB字段（DocImage）是数据库中的必填字段。但是，我的代码似乎没有将位图保存到ClientDataSet中的blob字段中......所以，当我调用BdmMain.cdsTrxDoc.ApplyUpdates(0)时，出现错误：“字段'DocIma

0热度

1回答

如何将USSD代码结果转换为字符串？

如何将USSD代码结果转换为字符串？我USSD运行代码： procedure TForm1.Button1Click(Sender: TObject); var Intent : JIntent ; strNo : String; begin strNo := 'tel:*101%23'; Intent := TJIntent.Create ;

2热度

1回答

TMainMenu - 管理帮助和搜索菜单项

在OSX中运行我的Firemonkey应用程序时，搜索框自动出现在我最后一个菜单项上，我标记为“帮助”。到目前为止，这很好，因为带有搜索框的“帮助”菜单是OSX的标准配置。接下来，我需要添加一个帮助文件。我购买了令人印象深刻的实用程序Help Crafter，我可以非常快速，轻松地制作Apple HelpBook。我将HelpBook软件包放入我的主应用程序的Resources文件夹中。然后，我

-4热度

1回答

如何使循环删除目录中的选定项目

我想在我的列表视图中从目录中删除所选项目。 procedure TFContact.BtnDeleteClick(Sender: TObject); var SecItem, BUFPath : string; i : Integer; begin if ListViewTab5.Selected <> nil then for i := 0 to ListViewT

0热度

1回答

如何使用Firemokey在我的MainForm上运行OnMouseDown事件？

我正在使用Tmainform.OnKeyDown，除了添加到窗体上的控件或框架之外，它始终会正确触发。我需要OnMouseDown的相同行为。我的目标是跟踪用户的活动。在没有键盘或鼠标点击的情况下，x分钟后，我想关闭应用程序。编辑：TMainForm.OnMouseDown永远不会被解雇。我不想对事件做任何事情，只要知道用户还活着并点击即可。

1热度

1回答

如何在构建我的OSX应用程序时包含Apple帮助手册

我开发了适用于Windows和OSX的Firemonkey应用程序。我还开发了一个Apple帮助手册，其中包含我的应用程序在OSX上运行时的帮助。（在Windows中运行时我有不同的帮助系统。）Apple推荐的帮助软件包位置位于应用程序的Contents/Resources文件夹中。我可以手动复制帮助包，但每次在IDE中运行我的应用程序或部署我的应用程序时，它都会被删除。我想过尝试使用Depl

3热度

1回答

Rad Studio 10.2.1内存泄漏Windows 10商店

对于Delphi社区来说，Rad Studio 10.2.1 FMX中存在内存泄漏。我找到了一个解决方法：Workaround for fmx memory leaks 我想知道一些关于它的东西。这是否只影响FMX Windows？有人告诉我，如果你的应用程序在Windows应用商店，内存泄漏不是一个问题，因为Windows Store终止它们。这是真的？这是他的原话：，如果你在Window

0热度

1回答

从DataSnap服务器获取数据后，ListView过滤器不工作

我有一个在Delphi西雅图制作的应用程序，并且我移植到Delphi东京。但我在ListView中的搜索不再正常工作。在第一次使用时，它能正常工作，我筛选一条记录并进行编辑。我将数据发送到datasnap服务器并再次获取所有记录以刷新列表视图。但是，如果我尝试再次搜索，它不会再找到记录，但是浏览listview我可以找到记录。显然，当我重新加载数据时没有出现在屏幕上的所有记录都未被过滤。如果我

1热度

1回答

带有Canvas的Delphi可视化组件

我总是写非视觉组件;他们的创作非常简单，而且在VCL和FMX下他们的工作同样出色。到目前为止这么好，但现在我面临一个问题。我用来从TComponent继承，但现在我不能了，因为我叫TRedistPreview组件确实需要这样一个过程： procedure drawPreview(area: TCanvas); 这个程序有画点什么（形状，线条和颜色）的地方，用于例如在TRectangle。我在