DELPHI中实现百叶窗效果

2017年02月06日 64 阅读

DELPHI中实现百叶窗效果2012-01-15所谓百叶窗效果,就是将画布分成若干个区域,各区域以渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一个显示特效的过程实例：首先，新建一个工程，在窗体上添加两个IMAGE控件，在控件IMAGE1的PICTURE属性中导入一幅位图（*.bmp），并将IMAGE1的VISIBLE属性设为FALSE。然后，在代码窗口中定义如下过程：procedure TForm1.fan;var r1:Trect;list,r,...

Delphi中记录数组存出到文件和从文件导入

2017年02月06日 59 阅读

Delphi中记录数组存出到文件和从文件导入2012-01-15 博客园 涂磊Type TRecord = Record Name: String[10]; address: String[50]; End; TRecordFile = File Of TRecord;Var Form1: TForm1; aRecordFile: TRecordFile; aRecordFileName: String = "c:PersonS.d...

关于delphi for php对中文支持不好的问题

2017年02月06日 61 阅读

关于delphi for php对中文支持不好的问题2012-01-15看到好多人在试用了delphi for php之后匆忙做出delphi for php对中文支持不好的结论，这是很不负责任的，作为一个国际化的公司，当然不可能犯这种低级错误，下面我就说明一下问题的原因以及解决办法。我们先写一个简单的php程序，输出一段话，先用英文输出，然后改成中文，代码如下：$this->Label1->Caption="This is a Test By...

教你在Delphi7中实现停靠功能

2017年02月06日 77 阅读

教你在Delphi7中实现停靠功能2012-01-30我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我给大家介绍一种能够凑乎用的简便方法。1、在主窗口中添加四个Panel和四个Splitter，设置对齐上下左右四边。2、设定四个Panel的属性DockSite属性为True。3、左右Panel添加 OnDo...

Delphi for PHP试用

2017年02月06日 69 阅读

Delphi for PHP试用2012-01-30盼了N天了，每天都上CodeGear的网站上看，终于，今天下午看到Delphi for PHP试用版可以下载了，于是迫不及待地下载到我的机器上，准备第一时间试用。下载速度比较慢，大概57K左右的速度吧,下载后文件名d4php_trial.exe，大小是30,165,616字节（28M）,用时8分29秒。在BDN登录后才能下载，下载前会提示给注册时的邮箱中发送一封试用版注册License的邮件，附件中有一个...

Delphi中用一个Byte数表示8个复选框的选择状态

2017年02月06日 61 阅读

Delphi中用一个Byte数表示8个复选框的选择状态2012-01-30 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst;type TForm1 = class（TForm） CheckListBox1: TChe...

如何在Delphi中维护COM+的状态信息

2017年02月06日 67 阅读

如何在Delphi中维护COM+的状态信息2012-01-30 稻草 问题是这样开始的：我需要写一个COM+，用来连接不同的数据库。有的朋友可能会说，应该为每个数据库建立一个COM+，但是在我的系统里不能这样。我们在做一个教育辅助系统，用户是学校（当然包括学校里的老师、学生、家长），我们为每个学校建一个数据库，这些数据库的结构是相同。当然我们还有管理数据库，用于协调各数据库的关系。每增加一个学校用户，我们就激活一个新的数据库给客户使用，也就是说，我们的数据...

Delphi中图片的居中、拉伸与平铺

2017年02月06日 69 阅读

Delphi中图片的居中、拉伸与平铺2012-01-30 博客园 万一问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std...

在Delphi 7中修改Form1: TForm1;

2017年02月06日 57 阅读

在Delphi 7中修改Form1: TForm1;2012-01-30 博客园 涂磊1]选中对应的Form,2]在Object Inspector里的Name修改,3]回车，即可.Delphi的IDE对应做了以下五处修改：{===================在.dpr===================}program Project1;uses Forms, Unit1 in "Unit1.pas" {DFGSDGF};//Unit1 in ...

如何让VC和Delphi程序只运行一个实例

2017年02月06日 63 阅读

如何让VC和Delphi程序只运行一个实例2012-01-30 sixth 有些时候，我们需要我们的程序只运行一个实例，笔者自己作程序也有这样的情况，于是自已探究一番。忙活一阵后，总算小有收获，不敢独享，在天极发表出来，供大家参考。既然是从根本上解决问题，对于Windows程序而言，就从WinMain函数入口，这是因为在VC中使用SDK的方式编写程序最透明，并且WinMain是作为VC编译器生成EXE文件的默认入口函数。WinMain的函数原型：int W...

Delphi中对比时间：CompareDateTime、CompareDate、CompareTime函数

2017年02月06日 73 阅读

Delphi中对比时间：CompareDateTime、CompareDate、CompareTime函数2012-01-30 博客园 万一CompareDateTime、CompareDate、CompareTime 都是对比时间的函数;CompareDate 只对比日期部分, CompareTime 之对比时间部分.两个参数都是 TDateTime 类型, 如果:前者 = 后者: 返回 0;前者 > 后者: 返回 1;前者 < 后者: 返回...

Delphi中提取时间成分

2017年02月06日 73 阅读

Delphi中提取时间成分2012-01-30 博客园 万一DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf函数用于提取时间成分它们的参数都是一个 TDateTime,DateOf、TimeOf 分别提取日期与时间, 并返回 TDateTime 类型;YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、Seco...

金手指Delphi中MsComm控件的安装使用

2017年02月06日 72 阅读

金手指Delphi中MsComm控件的安装使用2012-01-30 王金涛 Delphi 具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者。但是在对串口通信的控制上Delphi的帮助文档和其他书籍中很少提及，这恰恰又是在开发应用系统时会经常遇到的问题。用过VB的程序员都知道 VB的MSComm通信控件具有丰富的与串口通信密切相关的属性及事件，提供了一系列标准通信命令的接口，可以用它创建全双工的、事件驱动的、高效实用的通...

Delphi中分解时间：DecodeDate、DecodeTime ... DecodeDateTime函数

2017年02月06日 69 阅读

Delphi中分解时间：DecodeDate、DecodeTime ... DecodeDateTime函数2012-01-30 博客园 万一SysUtils.DecodeDate（）;SysUtils.DecodeDateFully（）;SysUtils.DecodeTime（）;DateUtils.DecodeDateTime（）;DateUtils.DecodeDateDay（）;DateUtils.DecodeDateWeek（）;DateUtil...

Delphi中区域设置 ID （LCID） 表, 及获取方法

2017年02月06日 62 阅读

Delphi中区域设置 ID （LCID） 表, 及获取方法2012-01-30 博客园 万一中国的区域设置 ID 是 2052, 如果经常打开微软软件的安装目录应该经常见到.获取很简单, 有现成的 API 函数: GetThreadLocale.begin ShowMessage（IntToStr（GetThreadLocale））; //2052end;区域设置 ID （LCID） 表区域设置描述简写十六进制值十进制值南非荷兰语af0x04361078...

Delphi中把窗体客户区图像保存到文件或剪切板

2017年02月06日 56 阅读

Delphi中把窗体客户区图像保存到文件或剪切板2012-01-30 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton;...

回调函数与Delphi的事件模型

2017年02月06日 60 阅读

回调函数与Delphi的事件模型2012-01-30回调函数：回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（一般会包含一个工作线程）就会按照回调函数地址调用该函数。这种方式，调用者在一个线程，被调用者在另一个线程。在Windows API中有一些函数使用回...

Delphi中从字符串中提取单词及从字符串中提取汉字的函数

2017年02月06日 55 阅读

Delphi中从字符串中提取单词及从字符串中提取汉字的函数2012-01-30 博客园 万一{从字符串中提取单词的函数}procedure StrToWordList（str: string; var List: TStringList）; var p: PChar; i: Integer;begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.S...

Delphi2009初体验 - IDE篇 - D2009 VS VS2005

2017年02月06日 62 阅读

Delphi2009初体验 - IDE篇 - D2009 VS VS20052012-01-30 博客园 杨芹勍一、启动界面，相比Delphi2007来说相对要简单。大家可以看到以前的“CodeGear From Borland”已经没有了，取而代之的是易博龙的Logo。Delphi2009启动时间比Delphi2007快，甚至还比Delphi7快，据说Delphi2009由于不提供for .net，过滤掉了很多加载项。虽然D200...

Delphi2009初体验 - 语言篇 - 反射单元ObjAuto的加强

2017年02月06日 56 阅读

Delphi2009初体验 - 语言篇 - 反射单元ObjAuto的加强2012-01-30 博客园 杨芹勍一、提出问题在将json-rpc中JSONObject翻译成Delphi代码的时候，我碰到以下语句：1 Method[] methods = klass.getMethods（）; 2 … 3 Method method = methods[i]; 4 … 5 if （key.length（） > 0 &&a...