Delphi笔记
Jack_Chai
有问题直接回复文章或私信,本人并未授权CSDN付费解锁任何文章,如有发现请及时私信。共同学习成长
展开
-
不用注册热键方式在Delphi中实现定义快捷键
第一步:在要实现快捷键的窗体中更改属性“KeyPreview”为True;第二步:在要实现快捷键的窗体中的OnKeyPress事件中填入一个过程名称(在Object Inspector中),填写好后回车就可转入事件代码填写部分;第三步:填写事件处理过程,下面给出一个例子:procedure TFrmMain.KeyPress(Sender: TObject; var Ke原创 2009-04-26 15:13:00 · 5238 阅读 · 2 评论 -
Delphi的MDI编程中遇到的一个奇怪问题
近日在用delphi写一个多文档应用程序,除了一个主界面是自动生成的,其他功能页面全部都是通过Application.CreateForm()动态生成的,也就是说在ProjectManager中点击程序名右键,最后一个选项,打开选项页,在Auto-Create Forms下只有主窗体。主窗体和功能页窗体的FormStyle属性均为fsMDIChild,其余属性均为默认。我在设计时曾经改过主窗体的一原创 2009-08-31 14:40:00 · 4012 阅读 · 2 评论 -
关于Delphi中二维数组的声明和大小调整
这是一个实例:procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:=this is a test; setlength(arr,0,0); setlength(arr,4,5); showmess原创 2010-03-12 13:13:00 · 32416 阅读 · 0 评论 -
Delphi中使用TXMLDocument控件应注意的问题
今天写了一个类,其中用到了TXMLDocument控件。这个控件我是要动态生成的。但是却遇到了非常奇怪的问题,下面分享一下procedure TMainForm.Button1Click(Sender:TObject);Var XML:TXMLDocument; I:Integer;begin XML:=TXMLDocument.Create(nil); X原创 2010-03-23 13:19:00 · 5235 阅读 · 0 评论 -
Delphi中取整函数Round的Bug解决
Delphi中 Round函数有个Bug一旦参数是形如 XXX.5这样的数时如果 XXX 是奇数 那么就会 Round up如果 XXX 是偶数 那么就会 Round down例如 Round(17.5)=18但是 Round(12.5)=12下面的函数即可纠正这个 Bug 但是是临时性的执行 DoRound(12.5) 结果为 13 正确 function DoRound(Value:转载 2010-04-23 11:32:00 · 3707 阅读 · 1 评论 -
Delphi中三种方法获取Windows任务栏的高度
第一种:需要引用Windows单元ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION))); 第二种:需要引用Windows单元function GetSystemTaskBarHeight:Integer转载 2010-05-11 09:36:00 · 7273 阅读 · 0 评论 -
让程序只运行一个实例(Delphi篇)
Windows 下一个典型的特征就是多任务,我们可以同时打开多个窗口进行操作,也可以同时运行程序的多个实例,比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑(比如安全性),我们要做出一些限制,让程序只能够运行一个实例。在Delphi编程中,笔者总结出了以下几种方法: 一、 查找窗口法 这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题转载 2010-05-10 11:46:00 · 2502 阅读 · 0 评论 -
解决“没有找到 rtl100.bpl,因此这个应用程序未能启动。重新安装应用程序可能会修复此问题。”
有时候,用Delphi写的程序,在本机自己的机器上运行没有问题,但发布后,交付给客户,运行时却提示“没有找到 rtl100.bpl,因此这个应用程序未能启动。重新安装应用程序可能会修复此问题。”如下图 我在网上查了一下,确实缺少了rtl100.bpl文件导致的(有时还提示没有找到vcl100.bpl文件)。 大多数解决的办法都是在安装包中附加rtl100.bpl原创 2010-05-17 10:45:00 · 31617 阅读 · 7 评论 -
Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决
Delphi 中使用dbExpress组件连接MySQL数据库时经常出现问题。本篇文章通过作者亲身经历,将详细的连接方法和注意事项进行列举和说明,供大家参考。所使用的平台为:Windows 7 Ultimate 32位版,Delphi XE Update 1,MySQL Community Server 5.5.10。原创 2011-03-22 00:21:00 · 15541 阅读 · 6 评论