摘要：一、Dll的制作一般分为以下几步： 1 在一个DLL工程里写一个过程或函数 2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。 二、参数传递 1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。 2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼... 阅读全文

摘要：防止用户误输入是软件开发的一项必不可少的工作，除才之外，还要为用户的使用提供最大方便。当然，我们可以利用或开发新的组件，以完成这些功能。但是，在团队开发中，每个成员都用自己认为不错的组件开发自己所承担的模块，会给软件的后期维护带来麻烦。交工的时候，项目负责人可不买你的帐。如果你用函数调用来完成这些功能，老盖也管不着。下面就是针对常用delphi组件的限制用户输入函数，但愿网友们能用的上。（一）TE... 阅读全文

摘要：程序里放上了这个之后Delphi在编译时就会自动使用Xp里面最新的共用控见，那样的话你的程序就支持Xp主题了，当然，这个只在Xp下有效，因为Xp以外的Windows没有支持Xp特效的共用控见。TXPManifest源代码中最重要的那句是: {$WEAKPACKAGEUNIT ON} 和 {$R WindowsXP.res} 前面那句是告诉编译器使用Xp的共用控见，后面那句指令编译器包含支持X... 阅读全文

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

摘要：CopyFile函數,文件拷贝函数.其基本結構如下:copyfile( lpcstr lpexistingfilename, // 源文件路径 lpcstr lpnewfilename, //新文件路径 bool ... 阅读全文

摘要：消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。1.最简单用法,不带图形MessageBox(0,'不同意','提示',MB_OK);MessageBox(0,'不同意','提示',MB_OKCANCEL );2.警告对话框:MessageBox(0,'密码不能为空,请务必输入密码','警告',MB_ICONEXCLAMATION);3.提示信息对话框:M... 阅读全文

摘要：//增加项或列(字段) ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';ListView1.Columns.Items[1].Capt... 阅读全文

摘要：if not adoquery1.FieldByName('translator').IsNull then DataSet.FieldByName(FieldName).IsNull DataSet.Fields[FieldIndex].IsNull 一般情况用FieldByName('translator').asstring好,会自动将空值转成''空字符串． 不... 阅读全文

摘要：1: 运行完没有关掉 生成的程序 比如 你生成了FORM1 但没有关闭又按了F9那么就会报错了 可以把已经打开的这个程序关闭 或者在进程里杀死 再编译就OK了! 2: 在程序中出现死循环，没有按Ctrl+F2中断，而是强行在任务栏按右键来关闭Project1.exe，之后返回Delphi的IDE就会出现这种情况。解决办法就是退出重新启动Delphi。 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids; type TForm1 = class(TForm) TreeView1: TTreeView; ... 阅读全文

摘要：RichEdit1.ScrollBars 选择滚动条，ssNone[无]，ssHorizontal[只有水平],ssVertical[只有垂直]，ssBoth[同时有水平和垂直] RichEdit1.SelStart RichEdit1.SelLength 选中文本的起始位置和长度 RichEdit1.SelText 选中的文本 FindDialog.FindText 保存查找内容字符串 ... 阅读全文

摘要：在OnShow加入弹出式窗口事件： procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入： procedure TForm1.FormClose(Sender: TObject; var Ac... 阅读全文

摘要：unit net; interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //通过ip返回机器名... 阅读全文

摘要：文本文件新建和读取使用 在窗体放一个按钮，点击输入 procedure TForm1.Button1Click(Sender: TObject); var bat : textfile; begin assignfile(bat, 'c:\123.txt'); //新建并打开文件 rewrite(bat); //Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的 ... 阅读全文

摘要：网上找来的 感觉对入门者很有启示 收藏一下了! No.1 判断逻辑类型 } var B: Boolean; begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage('B = True'); //不建议//不安全 /////// if B then ShowMessage('B'); //建议//简短 en... 阅读全文

摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：const constr :String =... 阅读全文

摘要：Format是一个很常用，却又似乎很烦的方法，找到一些资料，以供查询之用。 首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的， 但并不多用，所以这里只对第一个介绍： fun... 阅读全文

摘要：摘自橙子的Delphi技术专区. 昨天群里有人问了个很有趣的问题，代码如下： var s: string; p: Integer; begin s:=Edit1.Text; p := Pos(s, memo1.Lines.Text)-1; Memo1.SelStart := p; memo1.SelLength := Length(s); Memo1.SetFocus; end; 照正常的情况... 阅读全文

摘要：//这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);begin if Node.HasChildren then if Node.Expanded then Node.ImageIndex := 3 //节点有子节点时打开的图标 ... 阅读全文

摘要：一、owner和parent的区别： parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： (1)在form1的窗体上，放一个panel1,并将panel1拉大， (2)在panel1上放一button1； (3)在form1上放一button2。 现在如果移动panel1,则button1随着panel1移动，这是因为button1的pa... 阅读全文