找个地方放一下

Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。  1、枚举类型的定义   格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)2、枚举类型数据特点 ① 枚举元素只能是标识符； 例如，下列类型定义是合法的：　　    type  days=(sun,mon,tue,wed,thu,

转自http://www.cnblogs.com/kfarvid/archive/2010/06/23/1763753.html前天遇到一个疑问：主窗体是fsMDIForm时，调用DLL的窗体不可以嵌入在主窗体中。于是就这个问题，我在网上找了相关资料，并找到答案：DLL封装子窗体。了解后，使用相同方法在DLL的子窗体再调用另一个DLL窗体也可以。如果需要回传参数，可以通过函数获得。实例

转自http://www.cnblogs.com/kfarvid/archive/2010/06/23/1763805.html（1）正确认识dllDll本质上一个独立的应用程序，与exe一样，有自己的地址空间。 因此，dll是一个可装载执行的程序。其他的，不多说了吧。 （2）调用DLL的方法我用过的有三种。第一种：用API因为Delphi支持几乎所有的API,你可以在De

转自http://www.cnitblog.com/shuyezi122/archive/2009/01/13/53745.aspxforcedirectories和CreateDirectory都能创建文件ForceDirectories可以创建多层目录. 如果你创建一个目录为c:\mymusic\music 如果你的C盘不存在一个叫mymusic的文件夹 的话程序会自动

1.先设置表格列的属性procedure TForm_TaskToDW.InitGrid;var  MyCol: TColumnEh;begin  with DBGridEh_Task do  begin    Columns.Clear;    MyCol := Columns.Add;    MyCol.FieldName := 'Select';

转自http://hi.baidu.com/ddjhw/blog/item/5ffe60f3e74fa9b5a50f523c.html一、如何设定可以多列自动排序?    只能使用分组:如按a1,a2,a3,a4排序    先按a1分组,再a2,再a3    然后设置a4的排列(升/降)二、如何设定左边几列，不能滚动?    建立Band0,Band1    B

以前总是循环展开，现在有这个属性，就简单多了RzTreeView_DWDept.FullExpand;  这样就可以全部 展开了。还有一个问题，设置节点选中RzTreeView_DWDept.SetFocus;if RzTreeView_DWDept.Selected = nil then      RzTreeView_DWDept.Selected := R

TABLE1：STUDENT ，图片的字段为PIC，关键字段NUM有2个数据集TAdoquery.ADOQuery1 .sql.text:='select * from student'ADOPIC.sql.text:='select  num,pic  from student where num =:num'-----------------------------------

先列几点，再详细总结1.消息弹窗2.窗体继承3.IE清理4.dxdbGrid使用5.Application含义6.Dll使用7.句柄的用法8.动态排列界面

转帖http://hi.baidu.com/ck85124/blog/item/d44ad17e9c1a163e0cd7da9e.htmluses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button1Click(Sender: TObject);varProcessName: string;ProcessID: intege

【详细过程】Eabort：静静的触发异常而不提示任何信息对话框，调用abort函数触发此异常；Eabstracterror：程序企图调用一个纯虚拟方法(abstract method)时产生异常；Eaccessviolcation：无效内存(memory)处理操作;Eassertionfailed：当代入asscert的函数的参数的值为false时；Econtr

一、开使你的第一个DLL专案　　1.File->Close all->File->New﹝DLL﹞代码:　　//自动产生Code如下　　library Project2;　　//这有段废话　　uses　　SysUtils,　　Classes;　　{$R *.RES}　　begin　　end.　　2.加个Func进来：　　代码:

一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个TForM 八 在DLL中建立一个TMDIChildForM 九 示例： 十 Delphi制作的Dll与其他语言的混合编程中常遇问题： 十一 相关资料 一 Dll的制作一般分为以

需要注意是GetNativeSystemInfo 函数从Windows XP 开始才有， 而 IsWow64Process 函数从 Windows XP with SP2 以及 Windows Server 2003 with SP1 开始才有。 所以使用该函数的时候最好用GetProcAddress 。function IsWin64: Boolean;   var    Ker

function TForm1.getdirsize(dir:   string;   subdir:   boolean):longint;var  rec:TSearchRec;  found:integer;begin  result:=0;  if   dir[length(dir)]  then   dir:=dir+'\';  found:=   findf

在应用程序中引入图片淡入及淡出，可以让用户界面更加美观。以前报刊杂志中介绍的常用方法有两种：一是自己写程序，诸个象素进行混合渐变；二是使用DirectX，建立一个带Alpha通道的Surface。第一种，效果可以自己控制，但比较麻烦，而且一般不容易生成硬件优化的代码；第二种速度很快，却需要使用DirectX库。    本文结合Delphi实例代码，介绍两种简单快速的实现方法，算

转自http://blog.youkuaiyun.com/appleric/article/details/5647769函数功能：该函数创建、显示、和操作一个消息框。消息框含有应用程序定义的消息和标题，加上预定义图标与Push（下按）按钮的任何组合。         函数原型：int   MessageBox(HWND   hWnd,LPCTSTR   IpCaption,UINT   UTyp

找到主窗体的AlphaBlend属性和AlphaBlendValue属性。将AlphaBlend设置为True。然后更改AlphaBlendValue属性的值即可。值从：0-255。窗体的淡入淡出效果，可以在程序启动的时候用时钟控件，动态增加AlphaBlendValue的值。关闭则相反。 **************************************************

窗体添加一个label;uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin label1.Transparent := true; label1.Caption := 'www.baidu.com'; label1.Font.Color := clBlue; label1.Fo

Delphi7中ScrollBox控件是不响应鼠标滚轮事件的，让其响应鼠标滚轮方法如下：procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin  if Wheel

FindFirst  是用来寻找目标目录下的第一个文件，FindFirst函数在delphi帮助下的定义: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;其中有一句:FindFirst returns 0 if a file was successfully loc

转自http://blog.youkuaiyun.com/enter333/article/details/66039711.手工修改窗体继承时，怎样让其父类的所有控件显示（在设计时）？File -> New -> Form，新建一个form，在form的单元文件中修改TForm1 = class(TForm) 为；TForm1 = class(TFatherForm) //TFatherFo

KeyLife富翁笔记   作者 : nakata_wang 标题 : DELPHI常用函数集及简要范例 关键字: HELP Functions 函数集 简要范例 分类 : 个人专区 密级 : 公开 (评分: , 回复: 0, 阅读: 513) »» _HELP函数集 ●●●●●●● ---------- abs(x)    绝对值

webbrowers用法集名人名言：事业常成于坚忍，毁于急躁。我在沙漠中曾亲眼看见，匆忙的旅人落在从容者的后边；疾驰的骏马落后，缓步的骆驼却不断前进。——萨迪 c# webbrowser新窗口 浏览次数：621次悬赏分：50 | 解决时间：2010-4-28 06:58 | 提问者：jeogegxs 我用的是.net2005（C#）中AxSHDocVw.AxWebBrowser

在BPL中跟断点        Run----Parameters----host Application   -----选择exe                                                 working Directory-----设置bpl路径       在project—options中设置output路径为上面选择的bpl路径

1：dxgrid可以 2：TStringGrid(dxDbGrid1).FixedCols := n; 5：dxDBGrid1.Bands[0].Fixed := bfLeft;

只在OCX中创建方法，不使用窗体的方式 环境：Delphi71.新建 Active library2.再新建 Active Server Object ,可以在新建窗体中设置类名3.在view----->Type Library 中添加接口方法，设置参数 parameter中传入的参数设为in，传出的参数设为out 类型加*

步骤:1、先创建ActiveX工程文件； 2、注册ActiveX文件(ocx文件) ；3、编写相应调用ActiveX文件(.ocx文件)的html文件.具体操作流程如下：步骤1：a、选择File->New->Other ，ActiveX页面，选择ActiveX Form ；b、填写New ActiveX Name：

http://hi.baidu.com/fefesoft/item/e08767f158725b08d89e72d9TObject = class    //创建    constructor Create;    //释放    procedure Free;    //初始化实列    class function InitInstance(Instance: Po

http://hi.baidu.com/killerprince/item/d1c2db2b2106b6fb51fd8762delphi下连接不带密码的Access数据库，比较简单，只需按照adoconnection中的connectstring属性一路设下去，测试成功后将build前的那段拷出来再做程序适应性修改。不过要注意在oledb提供程序中应当选择Microsoft

一、前言    由于系统不稳定，经常要重装DELPHI。而每次安装DELPHI的时候，原来注册的组件都被刷新，只能重新安装组件。众所周知，DELPHI的第三方组件N多，这个安装着实令人头疼。更有甚者，因为某些莫名其妙的原因， DELPHI的组件面板上有时居然只剩下一个标准组件。碰到这种情况，我不知道各位如何处理，我每次都是重新安装。为了解决这个难题，我决定深入了解 DELPHI组件是如何被

转自http://houke2004.blog.163.com/blog/static/2086316520122105180524/网上有很多关于Delphi连接MySql数据库的文章，在这里，我只记录下自己测试过的方法，以备所需。系统环境：Windows XP SP3软件环境：Delphi 7 、mysql-installer-5.5.15.01.ODBC方式

转载：http://www.cnblogs.com/dingjie/articles/194828.html 很好的一篇文章。为什么要使用包？答案很简单：因为包的功能强大。设计期包（design-time package）简化了自定义组件的发布和安装；而运行期包（run-time package）则更是给传统的程序设计注入了新鲜的力量。一旦把可重用的代码编译为运行期库中，你就可以在多个应用

转自http://anony3721.blog.163.com/blog/static/5119742010731104255351/ { 使用委托，将方法做为别一个方法的参数传递的例子（回调） } unit Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes,

---- Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBG

//mxb列1添加下拉框项；mxb.Columns[1].PickList.；whilenotdataset.eofdobeg；mxb.Columns[1].PickList.；dataset.next;；end;；mxb.Columns[1].expanded=；//mxb列的按钮类型；mxb.Columns[1].ButtonSty；mxb.Column//mxb列

ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标是把计算机桌面环境与因特网环境集成起来，同时保护在Windows技术中现有的开发投资。微软的ActiveX技术根本上就是修改过的OCX技术，使它能够跨越Inter

控件包使用了DbGridEh。Requies也加入了ehlib70.dcp就是编译时不通过，提示：     Never-build   package   'XXXX'   requires   always-build   package   'EhLib70'  最后解决了,需要在Project->Options里的Description里将BuildControl 选项设置成Re

function TForm1.DeleteDirectory(NowPath: string): Boolean; // 删除整个目录var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPath)] then NowPath := NowPath + '\';

转自http://blog.sina.com.cn/s/blog_4c4d069f01000811.html//如何让窗口闪烁，就象qq有消息时候！  procedure TForm1.Timer1Timer(Sender: TObject);   begin     FlashWindow(Form1.Handle, TRUE);     FlashWin