DELPHI
jzbest
这个作者很懒,什么都没留下…
展开
-
能够处理任何数据库字段的Panel
unit DBPanel;interfaceuses windows, messages, sysutils, classes,graphics, controls, forms, dialogs, extctrls, dbctrls, stdctrls, db;type TDBPanel = class(tpanel) private {转载 2009-08-05 10:30:00 · 469 阅读 · 0 评论 -
DELPHI 常用虚拟键:VK_
<br /> <br />常数名称 十六进制值 十进制值 对应按键<br />VK_LBUTTON 01 1 鼠标的左键<br />VK_RBUTTON 02 2 鼠标的右键<br />VK-CANCEL 03 3转载 2010-12-27 10:15:00 · 6821 阅读 · 0 评论 -
将应用程序11M内存占用,降至500K
<br />好多天没有写BLog了,最近解决了一个问题-减少内存占用。不过是有条件的,只能在WinXp,Win2K中应用此方法,不显示主窗体一直运行的程序最佳。以前程序占用11M内存,我用动态创建窗口的方法只能减少不到100K,应用此方法后内存占用只有496K。把下面的过程放到一个Timer中,每隔一段时间执行一次,如5秒。<br />{<br />************************************<br />* Clear Memory<br />* From Muse2008<br转载 2010-10-02 21:01:00 · 522 阅读 · 0 评论 -
Delphi制作数据感知控件之浮想联翩
<br />王维康 编写<br /> 知识点<br /> <br />本文共有6个关于控件的知识点:<br /> <br />1、基本控件的制作;2、感知属性的添加;3、关联控件的销毁处理;<br /> <br />4、事件方法的赋值; 5、属性页的制作; 6、组件包设计思想<br /> <br /> <br /> <br />关于制作感知控件的文章有不少,但涉及的内容大都比较单一,读者只能依照文章的陈述按部就班地操作,无法很好的理解控件的制作机制。本文试图通过讲解一个控件的制作流程来着重阐述制作感知控件转载 2010-08-28 21:46:00 · 602 阅读 · 0 评论 -
浅谈控件(组件)制作方法一(附带一delphi导出数据到excel的组件实例)
<br />从99年学习delphi开始,我就被它的快速开发迷上了,那时候刚接触编程,对可视化开发特别来劲,原因嘛,不外乎是比C更快的实现啦,这几年来,从delphi的C/S到三层B/S,大大小小也写过一些软件,自认为这delphi也就这么些功能吧,自从最近偶得一本Com本质论,研究了一下VCL源码,才发现它真的神通广大(我也不知道用什么词来形容),最近有些许突破,就在此于大家分享,有不对之处还请指点一二。<br />说白了,组件只包括二类成员: 属性和方法(我所说的方法包括了事件)<br />分属于四转载 2010-08-28 22:01:00 · 728 阅读 · 0 评论 -
delp控制Word
我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您,望对您有所帮助。procedure TFrmMain.N327Click(Sender: TObject);varFWord :Variant;FDoc :Variant;strSQL :string;begin//首先创造对象,如果出现异常就做出提示try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见,值为false时,程序在后台运转载 2010-08-01 23:48:00 · 458 阅读 · 0 评论 -
delphi操作word
delphi操作word<br />一、Delphi程序启动Word<br />采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:<br />首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,<br />则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿<br />格式:WordDo转载 2010-08-01 23:28:00 · 598 阅读 · 0 评论 -
汉化数据导航条
<br />在表单的create事件写这段代码<br /><br /><br />var<br /> i:integer;<br />begin<br /> for I := 0 to DBNavigator1.ComponentCount - 1 do<br /> if DBNavigator1.Components[I] is TNavButton then begin<br /> case TNavButton(DBNavigator1.Components[I]).Index of原创 2010-07-31 18:07:00 · 312 阅读 · 0 评论 -
常用KEY值
<br />常用的, <br />Backspace-> 8 <br />Tab-> 9 <br />Return-> 13 <br />Pause-> 19 <br />CapsLock-> 20 <br />Esc-> 27 <br />Space-> 32 <br />PageUp-> 33 <br />PageDown-> 34 <br />End-> 35 <br />Home-> 36 <br />LeftArrow-> 37 <br />UpArrow-> 38 <br />RightArro原创 2010-07-31 18:36:00 · 555 阅读 · 0 评论 -
Delphi对Word的控制。
一、创建Word:function createWord(s_modelfilename: string): variant;var WordApp: Variant;begin if not FileExists(s_modelfilename) then begin Showmsg('未指定模板,无法打印!' + s_modelfilename, 16); exit; end; try WordApp := GetActiveOleObjec原创 2010-07-30 11:05:00 · 1376 阅读 · 0 评论 -
EXCEL的操控框架
1、声明变量 ExcelApp : OleVariant;2、创建对象 ExcelApp:=createoleobject('Excel.application');3、设置属性 ExcelApp.WorkBooks.Open(FFileName); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := false;4、操作对象 showmessage(ExcelApp.Cells[1,1].原创 2010-07-28 18:36:00 · 350 阅读 · 0 评论 -
怎样在程序中动态加BDE别名
对于BDE会话期对象来说,BDE别名特别重要,许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现,你的程序由于找不到别名而无法运行,必须在一台已经装了BDE管理程序的机上才能用,你一定非常失望。不要紧,只要在程序中加入以下语句,你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建转载 2009-08-13 15:57:00 · 847 阅读 · 0 评论 -
几篇转帖
新浪上几篇帖子转载 2009-08-08 15:32:00 · 331 阅读 · 0 评论 -
不通过扩展名判断图像文件格式
<br /> 编制一个小程序,需要判断图像文件格式。从网上搜索到,文件头第1个字节:1、$00 Icon;2、$42 Bmp;3、$FF JPEG 。据此进行判断。<br /> <br /> 此外,Jpeg文件的格式是以$FF $D8开头的,以$FF $D9结尾。但是有时候也并不一定以$FF $D9结尾,因为一般Jpeg解读代码读到$FF $D9的时候就终止解读了,但文件并不一定非要结束,可以继续有内容。有的Jpeg文件会在文件末尾加入额外内容,作为隐藏内容藏在文件中。就是所云的图片中隐藏的秘密。<br原创 2011-01-04 21:41:00 · 1318 阅读 · 1 评论