delphi设置开机自动启动函数具体实现

2017年02月06日 58 阅读

有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考 复制代码 代码如下: procedure TMainForm.SetAutoRun（ok: boolean）; var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_...

delphi简单判断程序30秒没有键盘和鼠标动作示例

2017年02月06日 66 阅读

以下为原代码： （这里给timer设置了1000ms）的参数，表示30秒的间隔！！ 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class（TForm） Memo1: TMemo; Butto...

delphi程序全屏显示无标题栏覆盖整个屏幕（适合屏保）

2017年02月06日 55 阅读

delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 复制代码 代码如下: procedure TMainFrm.FormCreate（Sender: TObject）; begin with MainFrm do begin { Position form } Top := 0 ; Left := 0 ; { Go full screen} BorderStyle := bsNone ; WindowState := ...

delphi发送消息控制滚动条使用示例

2017年02月06日 72 阅读

1、Perform 函数 复制代码 代码如下: DBGrid1.Perform（WM_VSCROLL,SB_PAGEDOWN,0）; //控制滚动条，向后翻页 DBGrid1.Perform（WM_VSCROLL,SB_PAGEUP,0）; //控制滚动条，向前翻页 2、SendMessage 函数 复制代码 代码如下: SendMessage（DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0）; SendMessage（D...

Delphi 生成excel中饼图的实例代码

2017年02月06日 92 阅读

复制代码 代码如下:var i,j,m,n,count1:integer; str:string; Jdate:tdatetime; channellist,potBstrtime,potEstrtime,Jchannelname:string; Rres:boolean; JSHR:double; Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:varian...

Delphi实现树型结构具体实例

2017年02月06日 55 阅读

复制代码 代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB;type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : Integer; Pa...

delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态

2017年02月06日 55 阅读

delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态。. 出现以上错误，请检查表的时间字段是否可以为NULL，不能为NULL可能出现这个问题，或其他不能为空的字段造成的。Access数据库，文本类型字段，存储字符段超出该字段定义的最大长度报此错误一般都是数据库字段类型设置不当引起，大家可以检查下。...

截取指定符号之间的字符串（随机读取）delphi实例代码

2017年02月06日 58 阅读

复制代码 代码如下:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class（TForm） test: TMemo; Button1...

Delphi中设置条件断点的方法讲解

2017年02月06日 87 阅读

写了这么长时间的代码，一直认为调试程序比写程序要重要，上次有人问俺，如何调试一个循环中某个循环条件位置下断点。本来想来在Delphi的断点设置中应该是有一个类似条件断点的东西的，不过我也一直不知道怎么设置这个条件断点，所以当时给他们的说法是在那个循环中，加上一个条件判断，写上一个Showmessage之类的弹窗。然后弹窗之后下断点，这不外乎是一种方法，而且还是一种很SB的方法。直到今天偶然查看到Delphi的调试菜单，愕然发现，原来Delphi是可以设置条...

Delphi实现判断网址是否存在及是否可以打开的方法

2017年02月06日 81 阅读

本例所述Delphi程序用于检测网址是否为404，也就是检测网址是否存在，或是否可以打开，针对不同的检查方法，会返回不同的结果。程序主要代码如下：unit address;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMHttp, StdCtrls, ComCtrls;type TForm1 = class（TF...

Delphi使用OpenGL2d绘图之画图片Bmp的方法

2017年02月06日 84 阅读

一、前言：对于Delphi来说，要画图片要先处理一下，需要引用别的单元，而Delphi中没带，需要另外下载Gl.pas。网上常见自带的OpenGl单元封装的是1.0版的，有此函数未声明。网上可以找到Gl.pas单元。另外需要一个Glaux.pas单元与glaux.dll，是辅助库。在本文最后会提供下载。二、实现流程：绘画图片需要以下几个流程。Window本身的绘图是以位图为基础的，png,jpg等，绘画时，可以转为bmp再画。1.加载bmp图片：使用aux...

Delphi下OpenGL2d绘图之初始化流程详解

2017年02月06日 74 阅读

一、前言：Delphi默认支持OpenGl，可以使用uses OpenGL单元进行引用，之后就可以使用OpenGL的函数。OpenGl是跨平台的，而且Windows很早就支持并集成在系统中，存在于system32中的opengl32.dll，不需要再额外进行安装。虽然windows本身有d3d，但是其能力有限，相关学习资料页相对较少。通常OpenGL仅仅支持以下几种基本几何图形：点，线和多边形。没有表面或者更高级的图形（比如球状图形）能被作为基本图形元素绘...

Delphi下OpenGL2d绘图之画点的方法

2017年02月06日 62 阅读

一、前言Delphi图形的绘制可以在glBegin（）、glEnd（）之间完成，绘制的框架代码可以使用Delphi下OpenGL2d绘图的初始化代码，具体内容可参考本站http://www.jb51.net/article/52141.htm。修改的部份为 Draw 函数的内容。二、画点使用glPointSize 函数指定栅格化点的直径。默认为1.0，只在GL_POINTS下起作用，关于消锯齿等功能以后再研究。使用glBegin（GL_POINTS）告诉O...

Delphi下OpenGL2d绘图之画线的方法

2017年02月06日 54 阅读

一、前言：Delphi画线方法与画点基本上是相同的。区别在于glBegin（）的参数。绘制的框架代码可以参考Delphi下OpenGL2d绘图初始化中的代码，地址为http://www.jb51.net/article/52141.htm。修改的部份为 Draw 函数的内容。二、画线步骤：GL_LINES：把每一个顶点作为一个独立的线段，顶点2n－1和2n之间共定义了n条线段，总共绘制N/2条线段GL_LINE_STRIP：绘制从第一个顶点到最后一个顶点依...

Delphi下OpenGL2d绘图之画四边形的方法

2017年02月06日 73 阅读

一、前言：Delphi实现画四边形的方法基本上与前几遍文字代码是相同的。其区别知识在于glBegin（）的参数“GL_QUADS”。绘制的框架代码可以使用Delphi下OpenGL2d绘图初始化中的代码，地址为http://www.jb51.net/article/52141.htm。修改的部份为 Draw 函数的内容。二、画四边形方法：使用GL_QUADS：绘制由四个顶点组成的一组单独的四边形。顶点4n－3、4n－2、4n－1和4n定义了第n个四边形。总...

delphi7连接mysql5的实现方法

2017年02月06日 75 阅读

本文简单介绍了Delphi7连接MySQL数据库的实现方法，具体步骤如下：首先先去下载：http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html然后将下载到的dbxopenmysql5_dll.zip解压出来，再把dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。在Form上放上TSQLConnection、TSQLQuery、TStri...

Delphi7中Listview的常用功能汇总

2017年02月06日 123 阅读

有些时候我们在使用Delphi7的Listview过程中总是要改一些默认的设置，现在把它们集中起来汇总如下。MultiSelect := True; 使Listview可以同时选择多行GridLines := True; 使Listview显示格线ViewStyle := vsReport; 显示数据项的详细列表HideSelection := True; 使listview失去焦点时,选中行不高亮//设置颜色procedure TForm1.ListVi...

Delphi用TActionList实现下载文件的方法

2017年02月06日 67 阅读

Delphi中的TActionList有个标准动作TDownLoadURL，内部是使用的URLDownloadToFile，它下载文件时会定时产生OnDownloadProgress 事件，这样就可以用进度条显示。本文讲述了Delphi用TActionList实现下载文件的方法，实现代码如下所示：uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D...

Delphi实现Listbox中的item根据内容显示不同颜色的方法

2017年02月06日 69 阅读

本文简述了Delphi实现Listbox中的item根据内容显示不同颜色的方法，实现步骤如下：ListBox1 的 Style 属性改为 lbOwnerDrawVariable在ListBox的OnDrawItem事件裡，根据item的值，改变Canvas属性示例代码如下：procedure TForm1.ListBox1DrawItem（Control: TWinControl; Index: Integer; Rect: TRect; State: T...

Delphi控件ListView的属性及使用方法详解

2017年02月06日 96 阅读

Delphi的ListView组件位于组件板的Win32页，可使用4种图形方式（大图标、小图标、列表、详细列表）来描述选项内容，类似于Windows操作系统中的“我的电脑”，数据项图形保存在ImageList组件中。1.ListView主要属性（1）ViewStyle属性ViewStyle属性用于选择数据项的4种显示方式，因此该属性有4个选项值：vsIcon大图标、vsSmallIcon小图标、vsList列表、vsReport详细列表。（2）Items属...