随笔分类 -  Delphi

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

posted @ 2009-05-07 02:45 歪歪Weblog 阅读(650) 评论(0) 推荐(0)

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

posted @ 2009-05-07 02:33 歪歪Weblog 阅读(568) 评论(1) 推荐(0)

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

posted @ 2009-05-06 01:52 歪歪Weblog 阅读(3212) 评论(0) 推荐(0)

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

posted @ 2009-04-16 00:10 歪歪Weblog 阅读(239) 评论(0) 推荐(0)

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

posted @ 2009-04-14 01:43 歪歪Weblog 阅读(1593) 评论(0) 推荐(0)

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

posted @ 2009-04-13 01:42 歪歪Weblog 阅读(952) 评论(0) 推荐(0)

Delphi ListView基本用法大全
摘要://增加项或列(字段) 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... 阅读全文

posted @ 2009-04-10 04:50 歪歪Weblog 阅读(9170) 评论(0) 推荐(0)

如何判断adoquery中字段值是不是空值?
摘要:if not adoquery1.FieldByName('translator').IsNull then DataSet.FieldByName(FieldName).IsNull DataSet.Fields[FieldIndex].IsNull 一般情况用FieldByName('translator').asstring好,会自动将空值转成''空字符串. 不... 阅读全文

posted @ 2009-04-10 01:26 歪歪Weblog 阅读(668) 评论(0) 推荐(0)

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

posted @ 2009-04-07 01:35 歪歪Weblog 阅读(806) 评论(0) 推荐(0)

学习 TTreeView- TTreeNode 类的常用属性与 TTreeView 类的 OnChange 事件
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids; type TForm1 = class(TForm) TreeView1: TTreeView; ... 阅读全文

posted @ 2009-04-04 02:35 歪歪Weblog 阅读(464) 评论(0) 推荐(0)

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

posted @ 2009-04-02 01:17 歪歪Weblog 阅读(3943) 评论(1) 推荐(0)

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

posted @ 2009-03-19 00:40 歪歪Weblog 阅读(854) 评论(0) 推荐(0)

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

posted @ 2009-03-17 03:05 歪歪Weblog 阅读(383) 评论(0) 推荐(0)

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

posted @ 2009-03-17 02:58 歪歪Weblog 阅读(393) 评论(0) 推荐(0)

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

posted @ 2009-03-17 02:55 歪歪Weblog 阅读(326) 评论(0) 推荐(0)

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

posted @ 2009-03-17 02:51 歪歪Weblog 阅读(527) 评论(0) 推荐(0)

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

posted @ 2009-03-17 02:44 歪歪Weblog 阅读(439) 评论(0) 推荐(0)

D2007 下 memo 的问题解决
摘要:摘自橙子的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; 照正常的情况... 阅读全文

posted @ 2009-03-17 02:40 歪歪Weblog 阅读(298) 评论(0) 推荐(0)

怎么改变Treeview中的图标? OnClick事件Click获取Node.text 批量处理及实现TreeView结点拖拽的实例
摘要://这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);begin if Node.HasChildren then if Node.Expanded then Node.ImageIndex := 3 //节点有子节点时打开的图标 ... 阅读全文

posted @ 2009-03-17 02:35 歪歪Weblog 阅读(1771) 评论(0) 推荐(0)

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

posted @ 2009-03-17 02:33 歪歪Weblog 阅读(293) 评论(0) 推荐(0)

导航