如何使组件在表单设计器中消失？
我正在创建一个包含其他控件的自定义控件，包括两个滚动条，一个水平，一个垂直。有一个属性可以将一个或两个滚动条设置为不可见，这在运行时效果很好，但在设计时，当我设置该属性时，它不会从表单设计器中消失。 现在，我可以理解如果这是一个单独的控件，这可能是一个有用的功能，但它是聚合组件的一部分，因此它应该遵守父控件的规则，而不是表单设计器的规则。有什么方法可以确保在我设置.Visible := fa
..
delphi相关内容
如何在Delphi中重新组织我的单位的文件夹结构？
我用Delphi启动了一个原型，其中所有源文件都位于一个目录下。 现在，我想使用文件夹重新组织所有内容。 我找到了两种方法来完成此操作。 1/First是在Delphi IDE中打开每个单元并Save as新文件夹。然后删除旧的设备文件。 2/在Windows资源管理器下，重新组织所有内容，然后在Delphi IDE中打开项目，删除对旧(未知)设备的引用，然后逐个文件夹添加每个
..
Delphi：可以有一个包含禁用项目的组合框吗？
如何使TComboBox具有某些已禁用的项？我需要用户看到这些项目，但不能选择它们。 谢谢！ 推荐答案 是，方法如下： 将TComboBox放在表单上，并将Style设置为csOwnerDrawFixed。然后添加事件处理程序 procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
..
从Delphi字符串检测和检索代码点和代理
我正在努力更好地理解代理项对和Delphi中的Unicode实现。 如果我在Delphi中对unicode字符串S：=‘Ĥà̲V̂e’调用Long()，我将返回，8。 这是因为各个字符[Ĥ]、[à̲]、[V̂]和[e]的长度分别为2、3、2和1。这是因为Ĥ有一个代理，一个̲̀有两个额外的代理，V̂有一个代理，而e没有代理。 如果我想返回字符串中的第二个元素，包括所有代理，[
..
Delphi，记录类型属性，记录字段赋值：需要赋值到记录的本地副本
在问题“Left side cannot be assigned to” for record type properties in Delphi上，有来自Toon Krijthe的an answer演示了如何通过在记录的声明中使用属性来完成对记录属性的字段的赋值。为便于参考，以下是由Toon Krijthe发布的代码片段。 type TRec = record private
..
来自TTnTEdit的Delphi字符串中的GDIPLUS
我正在尝试使用Delphi 6将阿拉伯文旋转文本绘制到颜料盒。尝试了不同的工具，如Gr32和现在的GDIPLUS。 GDIPLUS样本工作正常，我可以绘制&Hello"；： graphics := TGPGraphics.Create(PaintBox.Canvas.Handle); fontFamily:= TGPFontFamily.Create('Times Ne
..
Delphi中的数组追加
我正尝试在Delphi 7中实现数组追加，因为标准库没有它。这就是我到目前为止所拥有的，但当我尝试获取数组的长度时，它会报告不兼容的类型。 procedure ArrayAppend(var GenericArray; const Element); var len: Integer; begin len := Length(GenericArray); SetLength(Ge
..
如何跨入RTL/VCL？
使用Delphi 7 IDE进行调试时，如何单步执行程序文件/borland/delphi7/source文件夹中的代码？ 听起来像一个愚蠢的问题，但好奇的人想要调试。(并不是说我认为源代码有什么问题，我只是想知道为什么第9000次我不能将TJpegImage分配给TjpegImage)。 推荐答案 确保在“项目选项”中启用了“使用调试DCU”选项，并且vcl源文件夹位于调试器的
..
在Delphi 7中使用TScreen
我的Delphi-7应用程序显示： Screen.DesktopWidth Screen.DesktopHeight Screen.Monitors[0].Width Screen.Monitors[0].Height 如果选择了第二个监视器，还将： Screen.Monitors[1].Width Screen.Monitors[1].Height 在
..
如何在Delphi 7中使用MSXML6.0创建TXML文档？
Delphi 7发布时，MSXML 6.0还不存在。是否可以将Delphi的TXML文档配置为使用MSXML 6.0而不是旧版本？ 推荐答案 将以下代码添加到单位名称uMSXMLVersion或您选择的名称，并将其添加到您的项目USX中 {-----------------------------------------------------------------------
..
Delphi执行应用程序
我正在尝试用Delphi创建一个DLL，我设置了一些文件属性，但我想从工作目录运行一个.exe文件。 我尝试使用以下代码运行exe文件 ShellExecute(Handle, 'open', 'start.exe', nil, nil, SW_SHOWNORMAL); 但我收到错误： 未声明的标识符“Handle”。 未声明的标识符‘SW_SHOWNORMAL’ 运行exe
..
一套弦？？！！
您熟悉此区块： Var mySet: Set Of Char; C: Char; begin mySet := ['a', 'b', 'c']; If C In mySet Then ShowMessage('Exists'); end; 有没有办法声明Set Of STRING？或者，有没有类似的代码可供我使用？此块的重要部分是If C In mySet Then Sh
..
将IHTMLDocument2实例分配给TWebBrowser实例
我正在使用IHTMLDocument2接口的一个实例来解析一些HTML，如本文所述： Load from IPersistMoniker takes long time to load unresolvable URL 代码比较简单： DelphiInterface diDoc2; HRESULT hr = CoCreateInstance(CLS
..
Delphi Image DLL在Azure中不起作用
我们有一个动态链接库来处理我们软件的一些图像。 我最近在Golang创建了一个应用程序，它使用这个DLL，在测试环境中一切工作得很好，但在Azure中，创建的图像都是黑色的，我不知道这是不是Delphi的限制，OS，Azure，如果有人有提示的话。 在生成图像的代码下面，即使是只有一张图的简单代码，图像也会变成黑色。 AOut := 'test.bmp'; vBitmap := TBitma
..
SaveState异常：无法创建文件，不允许操作
我在iPad上测试SaveState，我在embarcadero SaveState example上遵循完全相同的逻辑，但它在保存数据后引发异常。 但是，在iOS模拟器上测试的相同逻辑工作正常。 我使用的是带有iPad iOS12.2的Delphi 10.3.1 当我在FormSaveState逻辑执行后单击Home按钮时，发生了以下异常： 无法创建文件.....不允许操作 在iOS模
..
隐藏Delphi FMX ListView分隔线和滚动条
我正在开发一个iOS和Android应用程序，并尝试修改或隐藏项目之间的ListView分隔线。如何隐藏或修改它们？ 此外，我还想隐藏垂直滚动条。是否可以在此组件上执行此操作？ 推荐答案 1。 在ListView上单击鼠标右键并选择“编辑自定义样式...” 在样式设计器中，选择“ListView1Style1”，并将“Frame”项的颜色设置为与“Backback”项的颜色相同。
..
在Delphi FireMoney OSX中强制关闭打开NSOpenPanel的ShowModal表单
我正在使用代码@http://jed-software.com/blog/?p=538在OSX上打开一个用于选择文件夹的对话框 我正在使用Form2.ShowModal创建一个表单，并在该表单上通过按钮调用上面的SelectDirectory函数。当NSOpenPanel也关闭时，用ShowModal创建的表单立即关闭...FormsOnClose事件不会触发，而Form2.ShowModal调
..
Firekey FTDI XE7 d2xx.jar驱动程序
我正在火猴XE7上使用D2XX Android驱动程序处理FT232RL项目。 Android平板电脑<；->USB FT232RL卡。 我设法使用Java2OP从d2xx.jar创建单元(androidapi.JNI.d2xx.pas)，将其添加到库中，进行编译和构建。但是，当我尝试使用某个类时，我只得到错误。我尝试： context:= SharedActivityConte
..
Delphi FMX将焦点设置为特定控件，以便显示光标
我创建了一个测试新的FMX项目。向其中添加了一个TabControl。使用上下文菜单添加了3个选项卡。在第三个选项卡中，添加了一个TEdit。向选项卡控件添加了OnChangeEvent处理程序。编码如下： procedure TForm1.TabControl1Change(Sender: TObject); begin if TabControl1.ActiveTab = TabIt
..
VCL.Bitmap到FMX.Bitmap
我在Web上找到了This代码，但FMX.Bitmap没有扫描线。 是否可以以某种方式将VCL.TBitmap复制或绘制为FMX.Bitmap？ {$IFDEF MSWINDOWS} type TBitmap = FMX.Types.TBitmap; TVclBitmap = Vcl.Graphics.TBitmap; procedure TakeScreenshot(Dest:
..