Delphi
D2009引入了PNG对图像和图像列表的支持。 但是... 我有一个imagelist包含png图像与alpha。我想使用TImage将其中一个放在表单上。如何做到这一点,让图像很好地合成? 作为一个问题的例子,我面临的代码无法正常工作,并产生显示的效果: ImageList.GetBitmap(index,Image1.Picture.Bitmap);
..
Mike Lischke的 TThemeServices 子类 Application.Handle ,以便它可以从Windows接收广播通知(即 WM_THEMECHANGED )当主题更改。 它分类应用程序对象的窗口: FWindowHandle:= Application.Handle; 如果FWindowHandle 0然后 begin //如果给出了一个窗口句柄
..
请在标签之前阅读 。 我正在创建一组依赖智能卡进行身份验证的应用程序。到目前为止,每个应用程序都分别控制了智能卡读卡器。在几个星期内,我的一些客户将同时使用多个应用程序。所以,我想也许创建一个控制身份验证过程的服务应用程序会更加实用。我希望我的桌面应用程序告诉他们对认证过程感兴趣的服务应用程序,然后服务应用程序将向他们提供有关当前用户的信息。这个部分很简单,使用命名管道。很难的是,服务如何告
..
当我不得不购买德尔福的工作时,我看到的一个大卖点就是支持平板电脑的能力。现在,我所在公司的客户想要使用平板电脑。我一直在努力寻找平板电脑的delphi的例子,但我没有找到任何。有人有经验吗?任何类型的教程或示例? 当组件获得焦点并在丢失虚拟键盘时隐藏它,我似乎无法带来虚拟键盘。 / p> 解决方案 Delphi 2010向Delphi介绍了一些很好的触摸和手势支持。 要获取更多
..
如何使用delphi 2010发送电子邮件地址,例如(修复电子邮件,密码丢失或任何html /纯文本电子邮件。 我尝试使用以下代码但是,当尝试发送邮件时,我会收到 EIdSocket Eroor消息“Socket Error#10060 Connection Timed Out”。 程序TForm5.btnSendMailClick(Sender:TObject); begin
..
我有一个Delphi 6应用程序,它具有专门用于与使用SendMessage()和WM_COPYDATA消息的外部应用程序进行通信的线程,以与外部程序接口。因此,由于SendMessage()函数只接受窗口句柄而不是线程ID,因此线程消息队列不能正常工作,因此使用AllocateHWND()创建一个隐藏窗口。我不知道什么是在线程Execute()方法。 我假设如果我使用GetMessage(
..
如果我有一个完整的源代码到一个delphi项目,我该怎么知道什么版本(即Delphi 5,Delphi 7,Delphi 2010等)被用来创建它,而不在Delphi中打开它? 我有一些可追溯到Delphi 6时代的项目,我想分类。但是我不想在各种版本的Delphi中打开每个版本,以确定要使用的版本。 解决方案 Delphi project.dof [FileVersi
..
我正在与德尔福2009年合作,解决了我的问题,但是我已经得到的答案已经过时了,因为Delphi2009不知道StrtoFloat。我正在问如何将一个整数转换为“1900000”到“1,900,000”? 解决方案 您还可以使用格式命令。因为格式需要一个实数,所以将0.0加到整数上有效地将其变成一个扩展类型。 Result:= Format '%.0m',[intValue + 0.
..
我继承了一个Delphi应用程序,我对对象pascal一无所知。 这是一个BPL,我需要编译到新版本的C ++ Builder XE 。 当我运行make时,我得到错误: E2064左侧无法分配给。 我学到了足够的obj pascal来知道我有一个常数,试图被赋予一个值。 但是,显然你可以骑这个behanvior;通过进入Delphi编译器下的Build选项并打开“可
..
我正在编写(下)我们公司的Delphi编程编码标准,所以任何人建议以什么为基础,任何你建议使用/不使用的东西? 解决方案 我使用 Delphi语言编码标准文件作为内部文件的基础。 对象帕斯卡风格指南可能被称为”官方“之一,我认为 - 只要有这样的事情。
..
我有一个LOGFONT结构。现在我想做的是从LOGFONT高度得到相关的字体大小。 解决方案 当映射模式是 mm_Text (通常是这样),当 lfHeight 字段为正时,它已经给出了高度。当它是负数时,单位是像素。 用于LogFont的MSDN 为您提供了在它们之间转换的公式: lfHeight = -MulDiv(PointSize,GetDeviceCaps(hDC,LOG
..
如何使用RTTI设置枚举字段的值? 即, type TCPIFileStatus =(fsUnknown,fsProcessed); TTest = class FStatus:TCPIFileStatus; 结束 ... var 数据:TTest; Ctx:TRttiContext; 状态:TCPIFileStatus; begin 数据:= TT
..
我不在乎它是字符串,字符串列表,备忘录等,但不是磁盘文件 如何下载竞争网页变成一个变量?谢谢 解决方案 使用Indy: const HTTP_RESPONSE_OK = 200; 函数GetPage(aURL:string):string; var 响应:TStringStream; HTTP:TIdHTTP; begin 结果:=''; 响应
..
我正在尝试同步一个VCL Forms应用程序中两个TDBGrid组件的滚动,我有困难拦截每个网格组件的WndProc没有一些堆栈问题。我已经尝试在滚动事件下发送WM_VSCROLL消息,但这仍然导致错误的操作。它需要单击滚动条,以及突出显示单元格,或向上或向下鼠标按钮。整个想法是让彼此相邻的两个网格显示一种匹配的对话框。 尝试 / p> SendMessage(gridX.Handl
..
Delphi 2007和2009中的编译器(dcc32.exe)有一个选项 -NS =命名空间搜索路径 这是否与编译器选项“默认命名空间”和“命名空间前缀”项目选项对话框?搜索'路径'听起来像一个文件夹(目录)名称,所以我不知道这个选项是否有用。 解决方案 这在
..
var FileBuff:TBytes; 模式:TBytes; begin FileBuff:= filetobytes(filename); 结果:= CompareMem(@Pattern [0],@FileBuff [0],Length(Pattern)); 结束 是否有任何功能,如 Result:= Pos(@Pattern [0],@File
..
使用 IXMLDocument (msxml wrapper)时,有没有理由在我的DLL函数内使用 CoInitialize ? (或其他com对象) 调用应用程序/线程是否负责调用 CoInitialize / CoUninitialize ? 如果我在我的DLL中使用 ComObj 如果自动调用 CoInitialize 在其初始化部分和 CoUninitialize 在其完成部分
..
由于我的应用程序中的一些安全性在数据库级别处理,所以我需要传递一个用户的从我的客户端应用程序到我的Datasnap服务器的SQL凭据。 (如果可能,我试图使Datasnap服务器无状态,因此请确认每次调用都必须执行此操作。) 我在客户端使用ClientDatasets(CDS),所以我可以使用OnBeforeGetRecords将OwnerData OleVariant中的数据从客户端
..
我正在寻找支持Delphi2010的压缩组件,并允许我执行以下操作: 创建.zip存档 从.zip存档中提取 删除.zip存档 我还需要该组件可以免费使用商业用途,并且可能不使用/依赖于DLL(我不介意如果是)。 到目前为止,我已经研究了 ZipForge , FlexCompress , KaZip 和 UnRAR ,但是我发现我需要购买ZipForge和FlexCompr
..
以下是(或多或少)相关的问题: Delphi - 在运行时使用图标填充图像列表”破坏“透明度。 我已经测试过@TOndrej 答案。但是,似乎我需要启用视觉样式(XP Manifest)才能使其工作(Windows常用控件的版本6.0将被使用 - 我现在不想要的)。我在运行时通过 ExtractIconEx 和 ImageList_AddIcon 。添加图标。 显然设置 ImageLi
..