ASP.net C# VB.Net PHP
Swoole ASP/ADO/VBScript SQL语言 Python Python3 Diango C语言 Lua C++ Go语言 Revel Docker Ruby Perl Erlang R语言 Julia Apex OAuth 2.0 Arduino 编程经验 汇编语言 树莓派 游戏设计 MATLAB Elasticsearch Numpy F# Delphi HTCondor Rust 易语言 NSQ
用户登录
用户注册
犀牛鳄鱼V

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
QQ121909580

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
三个女人一台戏y2

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
卟忘15530746

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相关