delphi-xe

0热度

1回答

任何知道会是什么问题？我想将items添加到checklistbox，但没有任何反应...... Items是Collection集合中的CollectionItems。表具有名称属性 procedure TForm1.FormShow(Sender: TObject); var DisplayName: string; c :integer; begin

4热度

1回答

通过DLL边界共享一个ADO连接

我们希望跨DLL边界共享一个ADOConnection（Delphi到Delphi，但在不久的将来也可能是C＃到Delphi）。我们希望将来能够灵活地从c＃中调用DLL，我们希望能够使用_Connection作为参数来定义DLL调用。喜欢的东西： procedure DoStuff (ADOConnection: _Connection) var InnerConnection: TA

3热度

1回答

Delphi的绘制一个闭合矩形的两个圆角和矩形角

怎样绘制，其具有两个圆角和所述相对的角是矩形的角部的矩形。该形状必须关闭，以便可以用刷子颜色填充。 Polyline方法不绘制曲线。我可以将弧的点添加到多段线点吗？我尝试使用画布方法，然后绘制ROUNDRECT，重叠在下部圆角的矩形，但我无法弄清楚如何drawign形状只是边境时没有填写其删除矩形的上线。注意：如果您认为相关，我可以添加我使用的代码。样品所需的形状：样的东西我用Delphi有：

3热度

1回答

德尔福字典和订货数据

我的代码是： procedure TfrmSettings.btnFillDictClick(Sender: TObject); var Dict: TDictionary<string, string>; Item: TPair<string, string>; begin Dict := TDictionary<string, string>.Create()

0热度

2回答

使用DT_RIGHT的DrawTextEx截断文本

我使用DrawTextEx将字符串绘制到TCanvas中，但是当我设置DT_RIGHT标志并且大多数字符为“1”且字体不是固定宽度时（即：“551111 ，111“和”Arial“字体），字符串的起始位置被错误计算，似乎在最后一个字符上被截断（请参阅图像以了解详细信息）。下面的代码片段： var dtPar: TDrawTextParams; C: TCanvas;

2热度

1回答

使用Omni线程库在Delphi中异步获取函数结果

我想从另一个单元/类调用一个函数，这将需要一些时间来执行任务并返回一个字符串值。在Delphi中我找不到像C＃异步等待类似的简单方法。使用Omni线程库对我来说似乎是个好主意。一个简单的例子对我来说是一个很好的开始。样品的方法： procedure TForm1.button1Click(Sender: TObject); begin // notify before starti

1热度

1回答

声明和初始化TVarRec（常量数组）PARAMS

我想定义一个var或const，我可以的TClientdataSet SetRange方法还使用： var lRangeStart : array of TVarRec; lRangeEnd : array of TVarRec; procedure SetRange; begin SetLength (lRangeStart, 2); SetLen

1热度

2回答

TObjectList重新排序

我需要根据一些规则重新排序TObjectList。我怎样才能做到这一点？因此，我将面板以dinamically方式添加到ScrollBox。当我添加它们时，我也将它们按照在运行时添加的顺序添加到ObjectList中，以供将来使用。然后，我可以通过拖放来重新组织滚动框中的面板。我希望ObjectList能够镜像在拖放时在运行时设置的相同顺序。这里是我的代码： var MainFo

2热度

2回答

德尔福相同服务的多个实例

我有一个旧的Windows服务在德尔福，现在必须在同一台服务器上安装多次，我试图改变代码，所以我能够改变服务名称因为我正在安装该服务，但我无法使其工作。我找到了一些关于它的信息here和一些here，并且在研究了这些帖子并进行了必要的修改之后，我能够安装具有不同名称的两个服务，但是服务并未启动。我发布负责控制下面的服务的类（继承TService），我知道是相当多的代码，但我真的很感激任何帮助。

3热度

1回答

德尔福TChromeTabs不工作在德尔福XE

因此，我使用Delphi XE，我想安装TChromeTabs（http://www.easy-ip.net/tchrometabs.html）或（https://github.com/norgepaul/TChromeTabs），因为它似乎做我所需要的。首先，该组件没有一个Delphi XE包，所以我想我可以尝试使用XE2制作的包，然后当它给我的错误，我想德尔福7同样内置包结果。我的意思是，