用户登录
用户注册

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

这篇文章介绍了Delphi生成excel中饼图的实例代码,有需要的朋友可以参考一下
复制代码代码如下:
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:variant;
 ExRowsValue,ExRowsName,ExClos:Integer;<b
  • 0
  • 0
  • 0
  • 0
  • 0

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

本文为大家详细介绍下delphi实现发送消息控制滚动条,主要函数及用法如下,感兴趣的朋友可以参考下哈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);
SendMess
  • 0
  • 0
  • 0
  • 0
  • 0

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

delphi简单实现程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,具体代码如下,感兴趣的朋友可以参考下哈delphi程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,所以记下
复制代码代码如下:
procedureTMainFrm.FormCreate(Sender:TObject);
begin
withMainFrmdobegin
{Positionform}
Top:=0;
Left:=0;
{Gofullscreen}
BorderStyle:=bsNone;
WindowState:=wsmaximized;
ClientWidth:=Screen.Width;
ClientHeight:=
  • 0
  • 0
  • 0
  • 0
  • 0

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

本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数,表示30秒的间隔,具体实现如下,感兴趣的朋友可以参考下哈以下为原代码:
(这里给timer设置了1000ms)的参数,表示30秒的间隔!!
复制代码代码如下:
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls;
type
TForm1=class(TForm)
Memo1:TMemo;
Button1:TButton;
Timer1:TTimer;
proce
  • 0
  • 0
  • 0
  • 0
  • 0

delphi实现将BMP格式图形转化为JPG格式图形的方法

这篇文章主要介绍了delphi实现将BMP格式图形转化为JPG格式图形的方法,通过简单的自定义函数调用系统自带的changefileext及SaveToFile等方法来实现格式转换功能,是非常实用的技巧,需要的朋友可以参考下
  本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下:
  
复制代码代码如下:
procedureConvertBMPtoJPG(SFileName,DFileName:string);
Var
 J:TJpegImage;
 I:TBitmap;
 S,D:String;
begin
 s:=SFileName;
 d:=DFileName;<br
  • 0
  • 0
  • 0
  • 0
  • 0

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

有些程序要设置为开机启动,所以自己写了个函数方便以后使用,实现比较简单,感兴趣的朋友可以参考下哈有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考
复制代码代码如下:
procedureTMainForm.SetAutoRun(ok:boolean);
var
Reg:TRegistry;//首先定义一个TRegistry类型的变量Reg
begin
Reg:=TRegistry.Create;
try//创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE;//将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键<br
  • 0
  • 0
  • 0
  • 0
  • 0

delphi中exit,abort,break,continue的区别介绍

本文详细介绍下delphi中表示跳出的有break,continue,exit,abort,halt,runerror的区别,感兴趣的朋友可以参考下哈,希望对你学习跳出有所帮助delphi中表示跳出的有break,continue,exit,abort,halt,runerror。
1、break强制退出循环(只能放在循环中),用于从For语句,while语句或repeat语句中强制退出。
2、continue用于从For语句,while语句或repeat语句强行结束本次称称循环,并开始下一次循环。
3、exit用于从当前代码块中退出。若该代码为主程序,则终止该程序,若是函数或过程,则立即该过程或函数。
4、abort中止程序的运行,产生不报错的异常信息。跳出祖先模块。和exit的区别是
复制代码代码如下:
proce
  • 0
  • 0
  • 0
  • 0
  • 0

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

这篇文章主要介绍了Delphi下OpenGL2d绘图之画四边形的方法,需要的朋友可以参考下
  一、前言:
  Delphi实现画四边形的方法基本上与前几遍文字代码是相同的。其区别知识在于glBegin()的参数“GL_QUADS”。绘制的框架代码可以使用Delphi下OpenGL2d绘图初始化中的代码,地址为//www.jb51.net/article/52141.htm。修改的部份为Draw函数的内容。
  二、画四边形方法:
  使用GL_QUADS:绘制由四个顶点组成的一组单独的四边形。顶点4n-3、4n-2、4n-1和4n定义了第n个四边形。总共绘制N/4个四边形。这里学画四边形是为了画位图做准备。
  设置颜色:
  glColor3f(1,0.5,0);可以设置四边形的颜色,参数为三部份,分别为R、G、B的值,取得范围为0到1,1表示255,0.5表128。这里需要特别予
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现限定软件使用时间的方法

这篇文章主要介绍了Delphi实现限定软件使用时间的方法,商业软件开发中非常实用的功能,需要的朋友可以参考下
  我们经常看到很多网上下载的试用版软件,都有使用时间的限制,就其商业角度而言也是处于软件效益保护的一种措施,可以让用户免费试用一段时间,若满意就可以购买商业软件。本文所述实例代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能,这里默认的时限为30天。
  主要代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Registry,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);private{Privatedeclaratio
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi隐藏TPageControl的标签实例介绍

件是一组页面集,用于构造一个多页对话框,它显示多个交互页(TTabSheet 对象),接下来为大家介绍下Delphi隐藏TPageControl的标签方法 下面是个简单的例子:
.....
复制代码 代码如下:

begin
//先屏蔽掉所有标签
for i := 0 to PageControl.PageCount - 1 do
PageControl.Pages[i].TabVisible := False;//隐藏

//再开启首先要显示的tab页,Tab_Page1:TTabSheet;
PageControl.ActivePage := Tab_Page1; //这就是要控制跳转的页面
end;
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi常用关键字用法详解

这篇文章主要介绍了Delphi常用关键字用法,包括了各个常用的关键字及其详细用法,需要的朋友可以参考下
  本文详细介绍了Delphi中常用的各个关键字名称及用法,供大家在编程过程中借鉴参考之用。详情如下:
  absolute:
//它使得你能够创建一个新变量,并且该变量的起始地址与另一个变量相同.varStr:string[32];StrLen:ByteabsoluteStr;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度,所以StrLen的值即字符串长度.beginStr:='abc';Edit1.Text:=IntToStr(StrLen);end;
  abstract:
<
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi下OpenGL2d绘图之画线的方法

这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下
  一、前言:
  Delphi画线方法与画点基本上是相同的。区别在于glBegin()的参数。绘制的框架代码可以参考Delphi下OpenGL2d绘图初始化中的代码,地址为//www.jb51.net/article/52141.htm。修改的部份为Draw函数的内容。
  二、画线步骤:
  GL_LINES:把每一个顶点作为一个独立的线段,顶点2n-1和2n之间共定义了n条线段,总共绘制N/2条线段
GL_LINE_STRIP:绘制从第一个顶点到最后一个顶点依次相连的一组线段,第n和n+1个顶点定义了线段n,总共绘制n-1条线段
GL_LINE_LOOP:绘制从第一个顶点到最后一个顶点依次相连的一组线段,然后最后一个顶点和第一个顶点相连,第n和n+1个顶点定义了线段n,总共绘制n条线段
  画
  • 0
  • 0
  • 0
  • 0
  • 0

delphi字符串分隔函数用法实例

这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下
  本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下:
  该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串,存入rs字符串列表中,具体代码如下:
复制代码代码如下:
procedureSeparateTerms2(s:string;Separator:string;varrs:TStringList);
var
 AStr:string;
 idx:Integer;
 ASubStr:string;
begin
 A
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi远程连接Mysql的实现方法

这篇文章主要介绍了Delphi远程连接Mysql的实现方法,需要的朋友可以参考下
  本文实例讲述了Delphi远程连接Mysql的实现方法,是Delphi数据库程序设计中非常重要的技巧。分享给大家供大家参考之用。具体方法如下:
  Delphi通过ADOConnection链接远程Mysql数据库,要在安装软件的电脑上安装Mysql驱动,没有的在百度下载,搜索mysqlODBC驱动就出来了
  主要的链接代码如下:
varsrstring:string;srstring:='DRIVER={MySQLODBC3.51Driver};SERVER='+Trim(SERVER.Text)+';DATABASE='+Trim(DATABASE.Text)+';USER='+Trim(USER.Text)+';PASSWORD='+Trim(PASSWORD.Text)+';OPTION='+Trim(
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi下OpenGL2d绘图之画点的方法

这篇文章主要介绍了Delphi下OpenGL2d绘图之画点的方法,需要的朋友可以参考下
  一、前言
  Delphi图形的绘制可以在glBegin()、glEnd()之间完成,绘制的框架代码可以使用Delphi下OpenGL2d绘图的初始化代码,具体内容可参考本站//www.jb51.net/article/52141.htm。修改的部份为Draw函数的内容。
  二、画点
  使用glPointSize函数指定栅格化点的直径。默认为1.0,只在GL_POINTS下起作用,关于消锯齿等功能以后再研究。使用glBegin(GL_POINTS)告诉OpenGL画点,参数GL_POINTS表示点,还有其他参数,如画线GL_LINES等,具体可以参考OpenGL单元的源码。glBegin()与glEnd()函数说明如下:
  函数原型:
  voidglBegin(GLenummode)</p
  • 0
  • 0
  • 0
  • 0
  • 0

为什么继续选择DELPHI(即将逝去的Delphi前景在何方)

已经钻DELPHI很深了,当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去,而不转向其它的?这是不是死脑筋
  已经钻DELPHI很深了,当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去,而不转向其它的这是不是死脑筋?
  我看了一下C#的LINQ的产生,然后又被实体框架所代替。思考了一下:
  1)LINQ的确是有好处,但是所用的场景又不多,这样就会变得很鸡肋。所以说学新的东西,有时对自己来说不一定有相当大的好处。
  2)软件编程发展现在,会有很多花巧的小东西,这些小东西可能带给你好处,但也不一定。只要你用不上,就没有好处。而且有些东西只是过渡性,尝试性,上家觉得不好又可能把它放弃,这的确对开发员很忌的事情,不跟M$也是这个原因。C语言很老,但到现在还是排第2,可以说明这些问题。因为C什么都可以自己做,自己做上家做轮子。它功能够单一,不需要太多东西也能排第2。
  3)框架问题,其实深入一件事,在长时间编程中,会积累对自己工作有利的框架。这样自己的工作效率也会不断提高。如果跳
  • 0
  • 1
  • 0
  • 0
  • 0

wordpress主题支持自定义菜单及修改css样式实现方法

使用wordpress过程中会遇到主题支持自定义菜单以及修改css样式问题,本文将介绍详细解决方法,需要朋友可以参考下自己在制作wordpress主题的时候遇到这个问题,并且遇到了css样式错误,其实很简单,操作如下:
在主题中functions.php中加入:
register_nav_menus(array('menu'=>__('menu',''),));
在主题导航栏贴上导航代码:<?phpwp_nav_menu('id=navbar');?>
但是出现了css样式错误:
原来这个函数输出的是下面的格式:
复制代码代码如下:
<divid="menubar">
<ulclass="menus">
&l
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi修改操作注册表权限的代码

Delphi修改操作注册表权限的代码,使用Delphi的朋友可以参考下。需要usesjclwin32,AccCtrl;此文件需要安装JCL
复制代码代码如下:
functionAllowRegKeyForEveryone(Key:HKEY;Path:string):Boolean;
var
WidePath:PWideChar;
Len:Integer;
begin
caseKeyof
HKEY_LOCAL_MACHINE:
Path:='MACHINE\'+Path;
HKEY_CURRENT_USER:
Path:='CURRENT_USER\'+Path;
HKEY_CLASSES_ROOT:
Path:='CLASSES_ROOT\
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现图像文本旋转特效完整实例代码

这篇文章主要介绍了Delphi实现图像文本旋转特效完整实例代码,对于帮助读者进一步理解Delphi图形及文字特效的处理有一定的借鉴价值,需要的朋友可以参考下
  本文以实例讲述了Delphi实现图像文本旋转特效的解决方法,在本程序中利用的控件主要是Panel控件、Image控件、Edit控件、Label控件和Button控件。本程序的关键是利用Delphi的bmp_rotate()函数来实现旋转图像的功能。并巧妙地调用相关WindowsAPI函数来实现对文本的旋转特效。
  完整的实例代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,math,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Ed
  • 0
  • 0
  • 0
  • 0
  • 0

delphi xe 可用的MD5算法

delphixe可用的MD5算法,需要的朋友可以参考一下
  
复制代码代码如下:
unitMD5;
  interface
  uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
  type
MD5Count=array[0..1]ofDWORD;
MD5State=array[0..3]ofDWORD;
MD5Block=array[0..15]ofDWORD;
MD5CBits=array[0..7]ofByte;
MD5Digest=array[0..15]ofByte;
  • 0
  • 0
  • 0
  • 0
  • 0
上一页  1  2  3  4  5  ...  下一页  

分享至

长按复制下方链接,去粘贴给好友吧:
软件
前端设计
程序设计
Java相关