随笔分类 - ★ Delphi
摘要:【使用上下键控制控件的选择】Taborder Tabstop:这组表识号本来是用来表示组件的按键顺序以及在该组件上是否停留的标识号。但是如果在某些时候稍微重视一下的话,将会事半功倍。下面略举一例:桌面上有几个编辑框,用户希望按回车键、上下方向键而不是TAB在其间来回游动。【属性设置】Form.keypreview = TRUEedt1.TabStop =TRUEedt2.TabStop = TRUEedt3.TabStop = TRUEedt1.TabOrder = 0edt1.TabOrder = 1edt1.TabOrder = 2【代码】unit Unit1;interfaceuses
阅读全文
摘要:程序说明:A程序:点一次按钮,产生一组随机数,只有随机数为4、4、9、9时,才会弹出"可以啦,恭喜啊~"字样。B程序:读取A程序随机产生的4组数,如果发现不是4、4、9、9,则进行一次虚拟的A程序按键操作。程序界面:程序代码:A程序procedure TForm1.btn2Click(Sender: TObject);beginedt1.Text := IntToStr(Random(10));edt2.Text := IntToStr(Random(10));edt3.Text := IntToStr(Random(10));edt4.Text := IntToStr(R
阅读全文
摘要:procedure TForm1.FormCreate(Sender: TObject);var firstDay,lastDay:TDateTime;begin firstDay := StrToDate(FormatDateTime('yyyy-mm-1',Now)); (* 本月第一天 *) lastDay := IncMonth(firstDay)-1; (* 本月最后一天 *) mmo1.Lines.Add(DateTimeToStr(firstDay)); mmo1.Lines.Add(DateTimeToStr(last...
阅读全文
摘要:今天研究了一下TValueListEditor控件,实现了以下功能:·按回车键后,自动切换到下一行·检测输入的值是否为浮点数,如果不是则弹出错误提示·只允许输入0..9、负号、退格键。详细功能还是看代码吧.....unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ValEdit;type TForm1 = class(TForm) lst1: TValueListE
阅读全文
摘要:Margin属性: 顾名思义,就是定义边距的。有个两个相关属性,一个Margins,要定义四个方向的边距,另外一个是AlignWithMargins属性,用来控制是否启用边距,默认是false。Margin功能在界面设计中还是非常的实用,看下面的例子:图中的Memo是嵌入在Panel中的,Align设为alClient,Margin设为5,Panel露出的部分就是边距。下面的GroupBox,Align设为alBottom,因为有margin,所以并不是完全贴在form的边框上的。在7中要实现类似的效果可要麻烦多了。另外Panel还增加了一个Padding的属性,功能类似Margin。熟悉网页
阅读全文
摘要:我的程序判断依据:1.第一个字符是否为" : " 。2.从第二个字符到最后一个字符,是否为0..F之间的数字。3.计算校验和,查看计算出的校验和是否和实际的校验和一致。<欢迎给出宝贵意见>Delphi 代码:____________________________________________________________________________________________function CheckLinesum(line:AnsiString): Integer;var len:Integer; checksum:Integer; i:Int
阅读全文
摘要:详细格式说明,请参考:1.Intel Hexadecimal Object File Format Specification 1988 (PDF), Revision A, January 6, 19882.http://en.wikipedia.org/wiki/Intel_hex______________________________________________________________________________________________什么是Intel HEX格式?Intel HEX文件是记录文本行的ASCII文本文件,在Intel HEX文件中,每一行是一个
阅读全文
摘要:procedure TForm1.btn1Click(Sender: TObject);begin{$Define ss} (* 用于定义一个条件符号,一旦定义,条件符号就为真 *){$IFDEF ss} (* 对条件符号进行判断,为真则编译源文件 *) ShowMessage('ss Has defined!!'); Text := 'ss Has defined!!'; Form1.Color := clLime;{$ELSE} (* 与$IFDEF配合使用,如果$IFDEF条件为假,则只对源文件$ELSE后一小部分进行编译 *) ShowMessage(&
阅读全文
摘要:我一直认为Delphi功能与C++相比毫不逊色,提供了丰富的控件和类、全部API以及嵌入的汇编。最近小弟在把C版的Huffman压缩改用Delphi写时,顺便“研究”了一下Delphi的位操作和嵌入式汇编,利用嵌入汇编我们可以得到高效的程序代码,完成一些Delphi没有提供的底层功能。借贵报一方宝地与大家分享我的“研究”。1.Delphi的位操作 每个学习C的朋友都会被告之C是“中级语言”,其位操作非常方便,而Pascal之流只适用于教学。但是Delphi中提供了一组位操作,可别以过去对Pascal的态度看Delphi。 * 按位的逻辑操作: Delphi中的AND、OR、NOT可不仅仅只对逻
阅读全文
摘要:编了一个程序,使用到了stringgrid,每隔一段时间自动往stringgrid中增加一行,当间隔时间很短时,stringgrid就会刷的很快,但是一直显示第一行。为了能够自动滚屏,可以加入一句:1 stringgrid1.row := currentRow; (* row属性等于当前写入的行 *)
阅读全文
摘要:这是自带的一个例子,看懂这一点东西,基本的操作应该没问题了....unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XLSReadWriteII4, XLSFonts4, CellFormats4, BIFFRecsII4;type TfrmMain = class(TForm) Label1: TLabel; Button1: TButton; edFilename: TEdit; Button2: TBut
阅读全文
摘要:一、下载官方下载网址: http://www.axolot.com/components/download.htm从这里可以下载到从Delphi5到DelphiXE全部支持的版本。二、软件安装下载下来的文件是exe格式,可以直接安装,一路next即可。按照默认安装,会在:C:\Documents and Settings\All Users\Documents\RAD Studio\8.0 路径下生成XLSRWII4_D2011.bpl,安装时需要使用。C:\Program Files\XLSSuit4路径下生成Package文件、Samples文件夹等,包括程序编写时需要的include文件
阅读全文
摘要:XLSReadWrite控件简介: 一个你需要的,能在Delphi和.NET下访问Excel文件的完美解决方案。 一个经典的读写Excel的控件,对于使用Excel 开发很有帮助官方网站:http://www.axolot.com/components/index.htm功能描述 About Feature读写任何单元值数字型、字符型、布尔型以及错误型。但是你了解日期和时间型单元吗?在Excel中没有这样的单元。Excel是和Delphi一样的方式来存储日期和时间的,即浮点型。那是什么制造了日期或时间值啦,是格式化。完全支持公式。你可以使用和Excel一样的函数,也支持对外部工作簿引用的公式,
阅读全文
摘要://函数 function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_...
阅读全文
摘要:AQTime和MemProof都是AutomatedQA旗下的产品,AQTime比MemProof提供了更丰富强大的功能。该产品含有完整的性能和调试工具集,能够收集程序运行时关键的性能信息和内存/资源分配信息,并提交概要报告和详细报告,还提供所有的程序优化处理工具,囊括了自定义过滤器、图形化的调用层次结构一直到源代码浏览等内容。AQTime的特色在于它不仅是一款调试工具,还是一款性能优化工具。另外,还支持与基于SCC API的版本控制软件集成使用。AQtime is a complete, top-to-bottom performance profiler and memory usage
阅读全文
摘要:正在用delphi xe编写一个小程序。。。界面上有十几个label,想通过右键点击弹出popupmenu,修改label的颜色因此,需要判断popupmenu的来源...上网搜索了半天,发现了解决办法:定义: pm1:Tpopupmenu;判断:showmessage(pm1.PopUpComponent.name);
阅读全文
摘要:刚在程序员小辉网站上看到的:刚才在论坛里看到一个朋友说:“这个月(2010.10)有五个星期五,五个星期六,五个星期日。听说823年才能碰一次。”在 Google 中搜索“五个星期五,五个星期六,五个星期日”,几十页的结果,都是说 823 年才有一次。猛一看,很稀奇。但一较真,就经不起推敲了。这个823年是怎么算来的?为什么不是 822 年或者 82...
阅读全文
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; procedure Panel1MouseDown(Sender: TO...
阅读全文
摘要:1、Embarcadero® Delphi® XE Version 15.0.3890.34076 的内存泄漏问题。 当编写类似代码时: if i<(就会出现内存泄漏的情况。解决办法: 替换安装路径下,bin文件夹内的Borland.Studio.Delphi.dll文件。下载Borland.Studio.Delphi.dll文件。
阅读全文
摘要:工作中,经常需要将bmp图片中的某个颜色修改为另外一种颜色。比如:将图片中的所有白色均修改成灰色。平时都是拿画图板中的油漆桶工具一点一点的刷,费时又费力。(这么干好几年了 :( )今天抽空编了一个小软件,实现了这种功能。源码下载地址:网络U盘代码窗体文件:窗体文件
阅读全文