Delphi是一种通过使用Object Pascal快速开发本机Windows,macOS,Linux,iOS和Android应用程序的语言。该名称是指Delphi语言及其库,编译器和IDE,用于帮助编辑和调试Delphi项目。
我无法接收包含PNG文件的字节数组。当代码在OnClientRead事件中执行时,它工作正常,已经转移到一个线程,发生MemoryStream错误...
首先,我怀疑这是可能的,但如果是的话,我很想知道如何。我记得以前看过这种行为,但它可以在IDE中明确实现。我有一个基本形式,我......
Delphi 10.1 Android如何获取Firebase设备令牌
我试过了:APushService:= TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM); APushService.AppProps [TPushService.TAppPropNames.GCMAppID]:='“mobilesdk_app_id”'; //我的......
我通常是一名C#程序员,去Delphi充满了“有趣”的发现。让我感到困惑的是德尔福的单一陈述。示例C#block if(x)Foo();否则......
TScrollBar和TControlScrollBar之间用于滚动TForm客户区的区别是什么
我想在带有Canvas的TForm上的列表中绘制小位图,但超出了TForm大小的限制,并使用垂直和水平滚动导航并允许用户显示...
我有一个hexString,如何将该字符串转换为二进制文件并保存为自定义扩展名的二进制文件?以下是我用来将字符串保存到文件中的示例代码块。 ...
有没有特殊的方法来查看Delphi中TPaintBox(Canvas)上的坐标(x,y)?我知道(0; 0)点在画布的左上方,但我想知道我们是否可以看到......
生成的DXF文件在AutoCAD中打开,但崩溃了BricsCAD
我正在使用Delphi中的DXF(AC1021版本)导出器,我遇到了一些问题。我正在密切关注ezdxf的最小文件结构,我能够在delphi中成功生成它。 ...
Delphi Graphics32如何在图层上用鼠标绘制线条
任何人都可以帮我转换这种动态绘制线条(使用delphi的Photoshop风格绘制线)到Graphics32的好方法吗?我的意思是,我想要一个ImgView,添加一个新图层,然后......
我正在尝试创建一个名为CheckEdit的新组件,如下所示:unit UnitName;接口使用System.Classes,Vcl.ExtCtrls,Vcl.StdCtrls,Vcl.Controls;输入TCheckEdit = class(...
你能解释一下ClipRect在Delphi中的用途吗?我阅读了文档,但我并不理解它。以下几行有什么作用? FillRect(ClipRect);
当在Delphi中发生无限循环时,调试器在我按下停止按钮时甚至不会给我一个堆栈跟踪。如果我怀疑程序停止的地方,我可以设一个断点......
如何使用FiremonkeyFM³获得屏幕尺寸?以下代码:var Size:TPointF; begin size:= FMX.Platform.IFMXScreenService.GetScreenSize; ... 结束;导致此编译错误:[...
如何为firemonkey TForm OnKeyDown事件分配快捷方式:
我在使用表单的OnKeyDown事件为Firemonkey上的TabItem分配快捷方式时遇到问题。似乎ctrl键的工作方式就像被一次又一次地按下和释放一样。这里 ...
我不是Delphi程序员,但我有一个旧的Delphi 7应用程序,我需要修复它并使用ADO。数据库表(MS Access)包含+100,000行,当我设置ADOTable.Active = ...
delphi 7 - 使用NotXor penmode调整矩形大小
我创建了一个应用程序,可以让你创建一个矩形并根据需要调整它的大小,但它有问题。每当我想在现有的矩形上绘制一个新矩形时。这是...的代码
函数ShellFindExecutable允许查找与特定文件类型相关联的程序:function ShellFindExecutable(const FileName,DefaultDir:string):string; var Res:HINST; ...
GroupView是否在OwnerData模式下的TListView中工作?
我正在尝试在Delphi XE2中为TListView实现“排列依据”功能。在表单设计器中(如果我关闭OwnerData)我可以让组显示并向他们添加项目但是,如果我尝试...