Delphi

Delphi:按键或IDE选项来填充类上的界面元素

我正在寻找任何IDE菜单选项,按键,shorcut,鼠标点击或东西来填充实现它的类的所有接口元素(方法,属性等)。 有什么办法吗? 解决方案 难道没有这样的快捷方式。 $ b 最近在这里提到了一个类似的问题:如何在Delphi XE中自动实现继承的抽象方法 ..
发布时间:2017-04-28 20:19:29 Delphi

在Windows 10上处理DPI(文本大小)的运行时更改

在Windows 10上,系统不再需要重新启动(注销/登录)来更改DPI(文本大小)。 我的应用程序还没有准备好进行这样的运行更改。 系统如何通知应用程序DPI正在更改?我应该处理什么消息? 我正在使用C ++ Builder,所以我正在寻找一个纯粹的WinAPI解决方案,没有WinForms。 解决方案 As @TLama和 ..
发布时间:2017-04-28 20:17:59 Delphi

如何知道在处理TTN_LINKCLICK消息后点击气球的链接?

Mr. TLama 回答了我的最后一个问题(如何捕获TTN_LINKCLICK通知? )一点没有得到答复,因为没有问:) 如果有多个链接,我如何识别我点击气球的每个链接? 我希望能够在气球中包含多个链接,并以不同的方式回复点击。 解决方案 通知没有参数,因此您不知道点击了哪个链接。道德:如果您需要多个链接,请考虑一个比工具提示更通用的界面,例如吐司通知或对话框。 ..
发布时间:2017-04-28 20:17:38 Delphi

我可以强制`const`通过引用(也就是`````````参数)

Delphi有: var :通过引用传递;参数是输入和输出。 out :通过引用传递;参数只能输出。 const :pass by ..... well it depends;参数只能输入。 in : pass by reference;参数仅输入,不会更改没有“in”。 我不介意 没有勺子 ,但是我错过了 >;考虑以下代码,是否有更干净的方法? 键入TFast ..
发布时间:2017-04-28 20:17:16 Delphi

Delphi XE2:为什么FireMonkey应用程序是高清?

根据Delphi XE2的发行说明。 FireMonkey可能会创建高清应用程序。 HD代表高清晰度。为什么高清? VCL应用程序无法创建高清应用程序作为FireMonkey? 解决方案 这是关于Firemonkey的文档,从中可以看到几个功能。 比较普通电视到高清电视。就像比较VCL和Firemonkey可以做什么。 这是一个营销术语,我怀疑会抓住它,突出强权。 高清应用程 ..
发布时间:2017-04-28 20:11:53 Delphi

如何在delphi中分割字符串

我只需要将一个字符串分为:“STANS”,“付款,chk#1”,1210.000 到基于 ,。字符串列表中的结果将是 STANS 付款,chk#1 1210.000 解决方案 创建一个 TStringList 并将逗号分隔的字符串分配给 StringList.CommaText 。这个解析输入并返回分割字符串作为字符串列表的项目。 StringList. ..
发布时间:2017-04-28 20:10:49 Delphi

Delphi:JSON数组

试图在Delphi中了解JSON。使用模块“DBXJSON.pas”。如何使用它来使这样一个数组: 数组:[ {“1”:1_1, 1_2_1“:1_2_2}, ..., ] : JSONObject:= TJSONObject.Create; JSONArray:= TJSONArray.Create(); ... JSONArray.AddEl ..
发布时间:2017-04-28 20:10:37 Delphi

从Delphi REST服务器返回图像,并在浏览器中显示

当您使用Delphi休息服务器中的文件流对象返回图像时,它不会显示在浏览器中。这是一个返回图像的示例方法: function TServerClass.Image:TFileStream; begin 结果:= TFileStream.Create('pathtofile\image.png',fmOpenRead或fmShareDenyNone); 结束 解决方案 ..
发布时间:2017-04-28 20:10:00 Delphi

TActionMainMenuBar和TActionToolbar丢失设置

我最近偶然发现了一个非常奇怪的行为。当我在程序中使用TActionMainMenuBar(或TActionToolBar)时,编译并运行,然后启动Photoshop CS5或Internet Explorer 9,ActionMainMenuBar(和ActionToolBar)将丢失其所有设置。分配的色彩映射中定义的颜色消失,字体设置也会丢失。有没有人看过这个解决方法? D2007 Pro ..
发布时间:2017-04-28 20:09:46 Delphi

在Delphi中生成三个随机字符

嗨,我正在使用Delphi中的函数生成三个随机字符,代码是这样的: function generate cantidad:integer):string; const letras_mi ='abcdefghijklmnopqrstuvwxyz'; const letras_ma ='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; const numero ..
发布时间:2017-04-28 20:09:08 Delphi

如何解决TListBox.ScrollWidth使用什么值?

我正在努力解决如何在 TListBox 上设置 ScrollWidth 来控制水平滚动条。这是我的第一个尝试: 程序ListBoxSizing; 使用 Math,Forms,StdCtrls; var 表单:TForm; ListBox:TListBox; 程序BuildForm; begin //Form.Font.Size:= 9; Form.Cl ..
发布时间:2017-04-28 20:08:55 Delphi

如何在Delphi中检测ctrl-t按键

我有一个带有TEdit控件的Win32表单。当用户在TEdit控件对焦时按下CTRL-t,我想使用OnKeyUp事件来检测它。我需要一个代码示例,请使用Key和/或Shift变量。谢谢。 解决方案 将表单的KeyPreview设置为True,然后为您的表单的OnKeyUp事件编写此代码: 程序TForm1.FormKeyUp(发件人:TObject; var Key:Word; Sh ..
发布时间:2017-04-28 20:08:43 Delphi

如何检查嵌入式资源是否存在?

在Delphi中,我正在构建HTTP应用程序或Web服务器。它本质上是一个内置到单个EXE文件的整个网站。我嵌入的文件包括HTML,JS,CSS,SWF,PNG,XML等。资源名称与原始文件名相同,。替换为一个 _ 。最后,会有大约40-60个文件嵌入到EXE中。 问题是我不想编写包装每个单独文件的代码。现在,我正在为每个资源声明一个常量,并使用 TResourceStream 获取资源时使 ..
发布时间:2017-04-28 20:08:22 Delphi

我想为TStringList.Objects分配一个记录

我想创建一个播放列表控件。我有很多信息显示在TStringList中。我想为TStringGrid.Objects分配一个记录,而不是一个对象,因为这么多对象可能需要一段时间来创建/销毁。它也需要很多的RAM。 记录会更快,更苗条。 我该怎么做? TYPE AMyRec =打包记录 FullName:string [255]; RelativePath:boolean; ..
发布时间:2017-04-28 20:08:09 Delphi

BCD数学库为任意大数字?

我正在寻找一个替代Delphi Data.FmtBcd库,因为我刚刚达到极限,如最大十进制数字,它可以表示和程序终止与 EBcdOverflowException 。为了好奇,我正在计算算术系列成员,需要处理非常大的数字 - 数十万个职位并不罕见。并在合理的时间内得到结果。为了测试目的,我将部分代码重写为Python 3.2,计算速度足以满足Delphi的等效性。 有些建议用于此类库,最好是 ..
发布时间:2017-04-28 20:07:57 Delphi

Delphi用于整数范围的case语句

我有一个函数被传递一个整数值,代表一个步长值。 有五个独立条件我想测试: 值= 0 值= 1 值= -1 值> 1 值< ; -1 目前,这是作为一组if语句实现的,我想更改一个case语句。我对具体的价值例子没有问题,甚至是有限的范围(比如说1..10),但是我如何写一个表示Value> 1或Value 解决方案 var MyValue:integer; ..
发布时间:2017-04-28 20:07:45 Delphi

UDP Server和Client在Delphi中

我正在做一个UDP C / S。我对服务器每秒可以接收的数据数量有问题。 我已经测试了向服务器发送10,100,1000个数据消息的批量,10,100收到没有问题。发送1000时,只收到300〜400。所有测试都在本地完成。 我已尝试使用ICS的twsocket和Synapse的tudpblocksocket实现服务器。两个都是同样的问题上面。 可以解释为什么会发生这种情况,以及 ..
发布时间:2017-04-28 20:07:33 Delphi

雪佛龙按钮在delphi对话框中

我想画一个雪佛龙按钮 在一个自定义对话窗体中,我想知道是否存在一个状态和部分常量与 DrawThemeBackground 函数或者我必须手动绘制这种按钮? p> 解决方案 最接近XP的是 ThemeServices.DrawElement(Canvas.Handle,GetElementDetails(tebNormalGroupExpandNormal), Rect(10 ..
发布时间:2017-04-28 20:07:19 Delphi

什么项目选择用于开源Delphi包?

我已经写了一些Delphi代码,我想在GitHub上分享。所有代码根据需要包含在运行时和设计时间包中。为每个项目设置许多“项目选项”。 (输出目录,搜索路径,编译选项等)我设法找到一些默认选项,对我的情况有效,但阅读其他问答这里很明显有多个方式 working 。 应该使用哪些项目选项来容易地将开放源码包纳入个别项目? 我最近开始使用NodeJS。 NPM软件包管理器使其在项目中使用第 ..
发布时间:2017-04-28 20:07:07 Delphi

如何从可执行文件中调用bpl中的Delphi函数?

我有一个Delphi应用程序,我已经写了一个相当简单的包装.exe。 基本上,有一个dll有一堆函数,其中一个我会迭代地调用一次我的包装器做了所需要的。我不能控制这个dll文件,永远不会。 嗯,现在这个DLL是一个BPL,我不知道如何调用函数那个文件。感谢提前。 解决方案 从包中使用函数的简单方法是“使用”包含该功能的单元,像往常一样调用它,并将包放在项目的运行时包的列表中。为 ..
发布时间:2017-04-28 20:06:55 Delphi