Delphi

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

    delphi中exit,abort,break,continue的区别介绍 2015-04-28

    本文详细介绍下delphi中表示跳出的有break,continue, exit,abort, halt, runerror的区别,感兴趣的朋友可以参考下哈,希望对你学习跳出有所帮助 delphi中表示跳出的有break,continue, exit,abort, halt, runerror. 1.break 强制退出循环(只能放在循环中),用于从For语句,while语句或repeat语句中强制退出. 2.continue 用于从For语句,while语句或repeat语句强行结束本次称称循

    关键词: delphi, continue, exit
  • delphi设置开机自动启动函数具体实现

    delphi设置开机自动启动函数具体实现 2015-03-15

    有些程序要设置为开机启动,所以自己写了个函数方便以后使用,实现比较简单,感兴趣的朋友可以参考下哈 有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考 procedure TMainForm.SetAutoRun(ok: boolean); var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; /

    关键词: 自启动, 开机
  • Delphi实现图片滚动切换的完整实例代码

    Delphi实现图片滚动切换的完整实例代码 2015-03-12

    这篇文章主要介绍了Delphi实现图片滚动切换的完整实例代码,通过本实例,读者可以进一步掌握Delphi控件及图形处理的技巧,需要的朋友可以参考下 本文以实例介绍了Delphi实现图片滚动切换的方法.该程序可以实现图像的滚动播出,并且通过本代码可控制窗口中的图像向上滚动,通过调节速度滚动条的值还可以调整滚动的速度:点击"停止"按钮,图像即停止滚动. 完整的功能代码如下: unit Unit1; interface uses Windows, Classes, Graphics, For

    关键词: delphi, 图片
  • 插件管理框架 for Delphi(二)

    插件管理框架 for Delphi(二) 2015-03-10

    插件管理框架2.2 实现代码 unit untDllManager; interface uses Windows, Classes, SysUtils, Forms; type EDllError = Class(Exception); TDllClass = Class of TDll; TDll = Class; TDllEvent = procedure(Sender: TObject; ADll: TDll) of Object; { TDllManager o 提供对 Dll 的管理

    关键词: delphi, 框架, 插件管理
  • delphi建立.读取.存贮INI文件的方法

    delphi建立.读取.存贮INI文件的方法 2015-03-02

    控制INI文件几法要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考: 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( ´windows´, // []中标题的名字 ´NullPort´, // =号前的名字 ´NIL´, // 如果没有找到字符串时,返回的默认值 strResult, //存放取得字符 100, //取得字符的允许最大长度 ´c:\forwin95

    关键词: ini, delphi
  • delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)

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

    delphi 简单实现程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,具体代码如下,感兴趣的朋友可以参考下哈 delphi 程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,所以记下 procedure TMainFrm.FormCreate(Sender: TObject); begin with MainFrm do begin { Position form } Top := 0 ; Left := 0 ; { Go full screen} Border

    关键词: 屏幕, 全屏显示
  • Delphi实现获取句柄并发送消息的方法

    Delphi实现获取句柄并发送消息的方法 2015-02-20

    这篇文章主要介绍了Delphi实现获取句柄并发送消息的方法,需要的朋友可以参考下 本文以实例形式详细说明了Delphi获取句柄并发送消息的方法,具体用法说明如下: 查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄 查找子窗体: childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API, EnumChildWindows(主创体句柄,@回调函数,

    关键词: delphi, 消息, 句柄
  • Delphi修改操作注册表权限的代码

    Delphi修改操作注册表权限的代码 2015-02-18

    Delphi修改操作注册表权限的代码,使用Delphi的朋友可以参考下. 需要uses jclwin32, AccCtrl; 此文件需要安装JCL function AllowRegKeyForEveryone(Key: HKEY; Path: string): Boolean; var WidePath: PWideChar; Len: Integer; begin case Key of HKEY_LOCAL_MACHINE: Path := 'MACHINE\' + Path; HKEY_

    关键词: delphi, 注册表
  • Delphi实现读取系统时间与日期完整实例

    Delphi实现读取系统时间与日期完整实例 2015-02-17

    这篇文章主要介绍了Delphi实现读取系统时间与日期完整实例,需要的朋友可以参考下 本文讲述了Delphi读取系统时间与日期的实现方法,首先设置各个控件用于显示时间.读取时间与设置时间.再添加如下代码: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: T

    关键词: delphi, 时间, 日期, 读取
  • 截取指定符号之间的字符串(随机读取)delphi实例代码

    截取指定符号之间的字符串(随机读取)delphi实例代码 2015-02-14

    这篇文章主要介绍了截取指定符号之间的字符串(随机读取)delphi实例代码,有需要的朋友可以参考一下 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TFo

    关键词: 字符串截取, 指定符号
  • delphi简单判断程序30秒没有键盘和鼠标动作示例

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

    本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数,表示30秒的间隔,具体实现如下,感兴趣的朋友可以参考下哈 以下为原代码: (这里给timer设置了1000ms)的参数,表示30秒的间隔!! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Ext

    关键词: 判断程序, 键盘动作, 鼠标动作
  • delphi字符串分隔函数用法实例

    delphi字符串分隔函数用法实例 2015-02-10

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

    关键词: delphi, 字符串
  • delphi实现保存和读取图片的方法

    delphi实现保存和读取图片的方法 2015-02-05

    这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片.保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下 本文实例讲述了delphi实现保存和读取图片的方法,是非常实用的技巧.分享给大家供大家参考.具体实现方法如下: 首先引用jpeg 1.显示图片: if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPictur

    关键词: delphi, 图片
  • Delphi实例演示Rect.Bounds生成TRect的区别

    Delphi实例演示Rect.Bounds生成TRect的区别 2015-01-22

    这篇文章主要介绍了Delphi实例演示Rect.Bounds生成TRect的区别,需要的朋友可以参考下 本文以实例演示Rect.Bounds生成TRect的区别,实例代码如下: unitUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Butt

    关键词: delphi, 区别
  • Delphi之Pascal语言中的关键字及保留字汇总

    Delphi之Pascal语言中的关键字及保留字汇总 2015-01-03

    这篇文章主要介绍了Delphi之Pascal语言中的关键字及保留字汇总,需要的朋友可以参考下 本文汇总了Pascal语言中的关键字及保留字如下,供大家参考: absolute//指令(变量) abstract//指令(方法) and//运算符(布尔) array//类型 as//运算符(RTTI) asm//语句 assembler//向后兼容(汇编) at//语句(异常处理) automated//访问类别符(类) begin//块标记 case//语句 cdecl//函数调用协定 class

    关键词: delphi, 关键字, 保留字
  • Delphi 类库(DLL)动态调用与静态调用示例讲解

    Delphi 类库(DLL)动态调用与静态调用示例讲解 2014-12-30

    在Delphi或者其它程序中我们经常需要调用别人写好的DLL类库,下面直接上示例代码演示如何进行动态和静态的调用方法: { **********************************************************} { } { DLL动态调用与静态调用的例子 } { 编译环境 Delphi XE } { 转载或编译请不要修改此文件 } { ******************************************************* ***} { **

    关键词: dll, delphi, 动态调用, 静态调用
  • 学习: Delphi FireMonkey 结构性初略分析

    学习: Delphi FireMonkey 结构性初略分析 2014-12-27

    Delphi 下的FireMonkey,很好地实现了 DirectUI与跨平台.学习了解他,对DirectUI编程及项目的跨平台实现有一定帮助. 虽然作为开发者个体,并不需要了解太多这些东西,只要求拿来能用能实现功能就行,但对 FireMonkey的学习分析,对自己程序设计思想的提升,会有一定帮助. 昨天用FireMonkey控件写了一个小例子,发现他的 Animation类在实现控件的小动画时,很高效,很灵活. 初步印象是 FireMonkey的内核有很多值得学习的地方,尤其他的界面渲染上,可

    关键词:
  • 初探Delphi中的插件编程

    初探Delphi中的插件编程 2014-12-20

    前言我写Delphi程序是从MIS系统入门的,开始尝试子系统划分的时候采用的是MDI窗体的结构.随着系统功能的扩充,不断有新的子系统加入系统中,单个工程会变得非常大,每次做一点修改都要重新编译,单个工程的形式也不利于团队协作.为了提高工作效率,我希望利用DLL动态链接库的形式实现插件结构的编程. 插件结构的编程需要一个插件容器来控制各DLL的运行情况,将划分好的每个子系统安排到一个DLL库文件中.对每个DLL程序需要为容器预留接口函数,一般接口函数包括:启动调用DLL库的函数.关闭DLL库的函数

    关键词: delphi, 插件编程
  • 在Delphi实现在数据库中存取图像的图文演示无错

    在Delphi实现在数据库中存取图像的图文演示无错 2014-11-20

    最近打算学习Delphi实现在数据库中存取图像,网上的好多Delphi实现在数据库中存取图像都是错误的,所以我把图片给弄好了. 本实例演示如何在数据库中存取图像文件. 向窗体上添加一个TListBox组件.一个TImage组件和一个TTable组件,设计完成的主界面如图1所示. 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数据库. 图2 设计完成的数据库 为了方便测试程序,Image.db数据库存储在实例程序所在的路径下.

    关键词: delphi, 数据库中存取图像
  • Delphi中判断文件是否为文本文件的函数

    Delphi中判断文件是否为文本文件的函数 2014-11-13

    在用Delphi 编程处理文本文件的时候,如果要装载的文件比较大,你可能会想在文件装载过程中提供一个装载进度的提示--那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数. 在自己编写文本文件读取函数的时候,你首先会遇到的第一个问题就是:对于给定的一个文件名,怎么知道它所代表磁盘文件的确是文本文件?这里有一个很简单的方法:把给定的那个文件看作是无类型的二进制文件,然后顺序地读出这个文件的每一个字节,如果文件里有一个字节的值等于0,那么这个文件就不是文本文件:反之,如果这个文件中没有

    关键词: delphi, 文本文件
  • Delphi书籍15本网盘下载地址整理

    Delphi书籍15本网盘下载地址整理 2014-11-05

    由Delphi园地整理的Delphi书籍15本常用的参考书籍,需要的朋友可以下载了. http://115.com/file/bh07akff# Delphi应用开发完全手册.rar http://115.com/file/e6rn2ett# Delphi信息系统开发实例精选.rar http://115.com/file/aqagbvdm# Delphi数据库系统开发完全手册.rar http://115.com/file/clohvfea# DELPHI数据库系统开发案例精选.rar htt

    关键词: Delphi书籍
  • delphi image闪烁问题解决办法

    delphi image闪烁问题解决办法 2014-11-04

    self.Image1.Parent.DoubleBuffered:=true;

    关键词: delphi, Image, 双缓冲
  • delphi 操作word文档

    delphi 操作word文档 2014-10-15

    //第一步 try wordapplication1.Connect; except wordapplication1.Disconnect; messagedlg('请安装Office中的Word软件!',mterror,[mbok],0); exit; end; // 不显示word wordapplication1.Visible:=false; //第二步,添加模版 template:='C:\模版.dot'; wordapplication1.Documents.Add(templat

    关键词: delphi, word
  • Delphi实现树型结构具体实例

    Delphi实现树型结构具体实例 2014-10-12

    这篇文章介绍了Delphi实现树型结构具体实例,有需要的朋友可以参考一下 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB; type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : I

    关键词: delphi, 树型结构
  • 图解 CSS (5): font - 字体

    图解 CSS (5): font - 字体 2014-09-26

    font font-family font-size font-weight font-style font-variant 另外 font-size-adjust 和 font-stretch 从 CSS 2.1 已废弃, 就不再学习了. font-family(指定字体): 如果字体名包含空格或其他特殊符号, 应使用引号(双引号或单引号): 可以同时指定多个字体(逗号分割), 前者优先.缺失后补.再缺使用默认. font-size(字号), 首先有几个常数值: xx-small.x-smal

    关键词:
  • WinAPI: GetNextWindow - 获取指定窗口Z上或Z下的窗口的句柄

    WinAPI: GetNextWindow - 获取指定窗口Z上或Z下的窗口的句柄 2014-09-26

    //声明: GetNextWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项} ): HWND; {失败返回0; 成功返回符合的窗口句柄} //uCmd 可选值: GW_HWNDNEXT = 2; {同级别 Z 序之下} GW_HWNDPREV = 3; {同级别 Z 序之上} 这是 GetWindow 的简化.

    关键词:
  • 理解浮点数的储存规则

    理解浮点数的储存规则 2014-09-26

    早就想知道浮点数的存储原理; 从 Single 开始理解. Single(单精度浮点数 - 32 位): s e f 1 8 23 如浮点数: 13.625 (1*10 1 + 3*10 0 + 6*10 -1 + 2*10 -2 + 5*10 -3) 其二进制表示是: 1101.101(1*2 3 + 1*2 2 + 0*2 1 + 1*2 0 + 1*2 -1 + 0*2 -2 + 1*2 -3) 系数(或叫尾数)规范化: 1101.101 = 1.101101 * 2 3 系数规范化以后,

    关键词:
  • System.Trunc.System.Round.System.Int - 返回整数部分

    System.Trunc.System.Round.System.Int - 返回整数部分 2014-09-26

    举例: var i: Integer; d: Real; begin i := Trunc(1234.5678); {截取整数} ShowMessage(IntToStr(i)); {1234} i := Trunc(-1234.5678); ShowMessage(IntToStr(i)); {-1234} i := Round(1234.5678); {...} ShowMessage(IntToStr(i)); {1235} i := Round(-1234.5678); ShowMess

    关键词:
  • 博客导读 - old

    博客导读 - old 2014-09-26

    Windows 编程 | 学习 Message | 多线程编程 | 内存管理 | 内存函数 | 钩子函数 | 初学汇编 | 算法与数据结构 | 资源文件 | 光标相关函数 | WinAPI 字符及字符串函数 | 再学 GDI+ | 用 GDI 操作 EMF 文件 | Delphi 的绘图功能 | 理解类 | TStringGrid | TMainMenu | TTreeView | TScreen | TRegistry | TListView | 使用剪切板 | TList 类的实现 | 运算

    关键词:
  • 理顺 JavaScript (10) - Math 类

    理顺 JavaScript (10) - Math 类 2014-09-26

    Math 和其他类不同, 它没有建立方法(不能这样使用: new Math()), 它的所有方法都是静态的(都得挂名调用). Math.abs; //绝对值 Math.max; //两个数中的大者 Math.min; //两个数中的小者 Math.random; //随机数 Math.round; //四舍五入 Math.ceil; //上舍入 Math.floor; //下舍入 Math.exp; //e 的指数 Math.log; //自然对数 Math.pow; //x 的 y 次方 Ma

    关键词:
  • 学点 C 语言(15): 数据类型 - sizeof(检测类型大小)

    学点 C 语言(15): 数据类型 - sizeof(检测类型大小) 2014-09-26

    获取类型大小的变量最好不是 int 类型, 而是 size_t 类型; size_t 在 stdio.h.stddef.h 都有定义. 1. 获取已知类型的大小: #include <stdio.h> #include <stddef.h> int main(void) { char n = 2; size_t size; size = sizeof(char); printf("%*u: char\n", n,size); size = sizeof(unsi

    关键词:
  • SysUtils.StrAlloc.SysUtils.StrBufSize

    SysUtils.StrAlloc.SysUtils.StrBufSize 2014-09-26

    StrAlloc : 给 PChar 指针分配空间, 并填充 #0; StrBufSize : PChar 缓冲区大小. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var For

    关键词:
  • Direct2D (17) : 蒙版之 FillGeometry() 方法

    Direct2D (17) : 蒙版之 FillGeometry() 方法 2014-09-26

    FillGeometry() 可通过两个画刷的重叠运算获取蒙版效果,作为蒙版画刷的渐变色中应该至少有一个透明色. 使用放射渐变画刷做蒙版: uses Direct2D, D2D1, Wincodec, ActiveX; {从指定文件建立 ID2D1Bitmap 的函数} function GetD2D1Bitmap(RenderTarget: ID2D1RenderTarget; imgPath: string): ID2D1Bitmap; var iWicFactory: IWICImagin

    关键词:
  • 写了一个字符串的二维表: TSta

    写了一个字符串的二维表: TSta 2014-09-26

    STA 单元 (用到 System.SysUtils.TStringHelper): unit STA; interface uses System.SysUtils, System.Classes; type TSta = record FSeparator: Char; FArr: TArray<TArray<string>>; constructor Create(const aStr: string; const aSeparator: Char = ';'); overl

    关键词:
  • 使用 IntraWeb (40) - 自定义 Session 数据

    使用 IntraWeb (40) - 自定义 Session 数据 2014-09-26

    修改 UserSessionUnit 单元: unit UserSessionUnit; interface uses IWUserSessionBase, SysUtils, Classes, IWApplication; type TIWUserSession = class(TIWUserSessionBase) procedure IWUserSessionBaseCreate(Sender: TObject); procedure IWUserSessionBaseDestroy(Se

    关键词:
  • WinAPI: SetWindowOrgEx - 设置窗口坐标原点

    WinAPI: SetWindowOrgEx - 设置窗口坐标原点 2014-09-26

    相关函数: GetWindowOrgEx.SetViewportOrgEx(设置视口坐标原点).SetViewportOrgEx 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Scro

    关键词:
  • 再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform

    再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform 2014-09-26

    几何变换也就是 Matrix 变换, 画笔的 Matrix 会忽略 dx.dy 平移参数; 选择 LineCapRound 线帽效果比较好. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm

    关键词:
  • 使窗口(和 MDI 子窗口)的关闭按钮变灰的方法 - 回复 "梦想成真"

    使窗口(和 MDI 子窗口)的关闭按钮变灰的方法 - 回复 "梦想成真" 2014-09-26

    问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1221980.html#1225922 //这样就可以使当前窗口的关闭按钮变灰, 但系统菜单中会有一条多余的线 var h: HMENU; begin h := GetSystemMenu(Handle, False); DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND); end; //这样也可以是当前窗口的关闭按钮变灰, 同时也去掉了分割线 var h: HMEN

    关键词:
  • Delphi 与 DirectX 之 DelphiX(27): TDIB.Spray();

    Delphi 与 DirectX 之 DelphiX(27): TDIB.Spray(); 2014-09-26

    本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; procedure Button1Click

    关键词:
  • Delphi 正则表达式语法(10): 选项

    Delphi 正则表达式语法(10): 选项 2014-09-26

    // preCaseLess: 不区分大小写, 相当于其他语言中的 i var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'abc ABC aBc'; reg.RegEx := 'abc'; reg.Replacement := '◆'; reg.Options := [preCaseLess]; //选项是集合类型的 reg.ReplaceAll; ShowMessage(reg.Subject);

    关键词:
  • DebugHook 与 ReportMemoryLeaksOnShutdown

    DebugHook 与 ReportMemoryLeaksOnShutdown 2014-09-26

    DebugHook 与 ReportMemoryLeaksOnShutdown 都是 System 下的变量. DebugHook: 程序中母体中运行时, 此值是 1; 独立运行时, 它是 0. 在程序的任何地方加上一句 ReportMemoryLeaksOnShutdown := True; 这样程序在关闭时可检测是否有内存泄漏. 如果这样使用: ReportMemoryLeaksOnShutdown := Boolean(DebugHook); 则程序只会在调试时报内存泄漏.

    关键词:
  • 操作 Wave 文件(5): 获取 Wave 文件的格式信息

    操作 Wave 文件(5): 获取 Wave 文件的格式信息 2014-09-26

    装载格式信息的结构有: TWaveFormat = packed record wFormatTag: Word; nChannels: Word; nSamplesPerSec: DWORD; nAvgBytesPerSec: DWORD; nBlockAlign: Word; end; TPCMWaveFormat = record wf: TWaveFormat; wBitsPerSample: Word; end; TWaveFormatEx = packed record wForma

    关键词:
  • 学点 C 语言(28): 数据类型 - 联合(union)

    学点 C 语言(28): 数据类型 - 联合(union) 2014-09-26

    在结构中, 每个字段的数据类型是唯一的; 使用联合可以在一个字段中储存不同的数据类型. 不同的数据类型共享一块内存. 当然其内存大小应依着大的来. 联合中的数据, 非此即彼, 只有一个有效; 应该有说明在某个数据中此时有用的是什么类型. 除了共享内存以外, 联合与结构一样. 1. union 的大小是其中最大数据成员的大小: #include <stdio.h> int main(void) { union MyUnion { short n1; int n2; double n3; }; p

    关键词:
  • 再学 GDI+[46]: 路径 - Create.FillPath.DrawPath

    再学 GDI+[46]: 路径 - Create.FillPath.DrawPath 2014-09-26

    本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDI

    关键词:
  • Delphi 2010 新增功能之: TWICImage 类[3] - 图像的比例变换

    Delphi 2010 新增功能之: TWICImage 类[3] - 图像的比例变换 2014-09-26

    TWICImage 的 Width.Height 属性, 可以读取但不能赋值. 调整 TWICImage 的大小.比例, 可以通过 IWICBitmapScaler 接口. //IWICBitmapScaler.Initialize 函数有四种比例变换的算法: WICBitmapInterpolationModeNearestNeighbor = 0; WICBitmapInterpolationModeLinear = $1; WICBitmapInterpolationModeCubic =

    关键词:
  • Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken();

    Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken(); 2014-09-26

    本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; Colo

    关键词:
  • 现在, Delphi 的多线程已经非常易用了!

    现在, Delphi 的多线程已经非常易用了! 2014-09-26

    先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; end; {调用上面的自定义方法} procedure TForm1.

    关键词:
  • WinAPI: IntersectRect.SubtractRect.UnionRect - 用两个矩形合成一个新的矩形

    WinAPI: IntersectRect.SubtractRect.UnionRect - 用两个矩形合成一个新的矩形 2014-09-26

    本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure FormCreate(Se

    关键词:
  • 多线程编程(8) - 多线程同步之 CriticalSection(临界区)

    多线程编程(8) - 多线程同步之 CriticalSection(临界区) 2014-09-26

    先看一段程序, 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedure FormCreate(Sender: TObject); procedure B

    关键词:
  • WinApi: SystemParametersInfo

    WinApi: SystemParametersInfo 2014-09-26

    举例: 更换桌面壁纸 var BmpPath: PChar; begin BmpPath := 'C:\Temp\Test.bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BmpPath, SPIF_UPDATEINIFILE); end; SystemParametersInfo 的参数实在太多了... SPI_GETBEEP = 1; {} SPI_SETBEEP = 2; {} SPI_GETMOUSE = 3; {} SPI_SET

    关键词:

iOS 开发

Android 开发

Python 开发

JAVA 开发

开发语言

PHP 开发

Ruby 开发

搜索

前端开发

数据库

开发工具

开放平台

Javascript 开发

.NET 开发

云计算

服务器

Copyright (C) codeweblog.com, All Rights Reserved.

CodeWeblog.com 版权所有 闽ICP备15018612号

processed in 0.046 (s). 9 q(s)