TForm

批量文件复制

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1
·2015-11-13 19:27

Delphi发送邮件...

///首先在控件栏定位到:Indy Clients加入控件IdSMTP ///再定位到:Indy Misc加入控件IdMessage   ///发送邮件函数 procedure TForm1
·2015-11-13 17:17

[delphi]ComboBox实现显示文本与值不同的方法

1.通过两个ComboBox组件来实现 演示图：   procedure TForm1.FormCreate(Sender: TObj
·2015-11-13 16:19

黄聪：演示 Rect、Bounds 生成 TRect 的区别

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1
·2015-11-13 16:41

Delphi F11 全屏

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1
·2015-11-13 16:52

界面美化代码

使控件产生圆角的方法（包括Tform） procedure TfrmMessageDlg.SetBorder(AControl: TWinControl);const  ConRound =
·2015-11-13 15:00

Delphi2009 泛型容器遍历超界问题

就是下面简单的遍历 var  LPair : TPair<Integer,TForm>;begin  for LPair in FFormDictionary do 
·2015-11-13 15:56

弹出式窗口管理单元备忘

uses Forms, Windows, Messages; procedure TrackPopupWnd( const AForm: TForm
·2015-11-13 14:13

多屏开发的备忘

1. dll里面的form显示位置问题    需要显示在主程序窗口的屏幕上，可以用下面的方法放到 TForm里面的FormActivate事件里面 var   
·2015-11-13 14:12

bcb 从TColor对象中解析出红、绿、蓝的亮度

(注意：在使用下面的例子代码前，请将窗口的Color设为clBlue,clNavy或其它任何一种非系统颜色，诸如clBtnFace) void __fastcall TForm1::Button1Click
·2015-11-13 14:06

Delphi过程函数传递参数的八种方式

一、默认方式以值方式传递参数  procedure TForm1.ProcNormal(Value: string
·2015-11-13 12:22

Delphi制作DLL

一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform
·2015-11-13 11:18

Delphi Dll（1）

  一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个Tform
·2015-11-13 11:15

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls; type   TForm1
·2015-11-13 08:43

delphi编程创建桌面快捷方式

delphi编程创建桌面快捷方式   uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click
·2015-11-13 08:04

delphi 改变闪动光标

delphi 改变闪动光标 // 不同风格的光标 procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;Shift
·2015-11-13 08:41

delphi webbrowser 获取iframe

procedure TForm1.Button4Click(Sender: TObject);var Index: Integer; Document: IHTMLDocument2; FrameIdx
·2015-11-13 08:39

XE7 - Image的双击事件无响应，咋整？(已解决)

在TImage的OnDblClick事件中，修改TLabel.Text:　　 　　procedure TForm1.Image2DblClick(Sende
·2015-11-13 07:27

TWebBrowser静音

procedure  TForm1 .
·2015-11-13 07:02

自动填写IE的网页的输入框的内容

procedure TForm1.PutData; var     ShellWindow: IShellWindows;     nCount
·2015-11-13 07:00

以二进制方式读取图片保存到string

procedure TForm1.BitBtn1Click(Sender: TObject);var  StringStream : TStringStream;  FSize :
·2015-11-13 05:42

BCB获取键盘、鼠标空闲时间

 void __fastcall TForm1::Timer1Timer(TObject *Sender) {     TLastInputInfo t;
·2015-11-13 03:20

delphi 开放数组参数

begin ShowMessage( IntToHex( Integer(@a),2)); ShowMessage(IntToStr(a[0])); end; procedure TForm1
·2015-11-13 01:48

Delphi 关键字详解[absolute,]

procedure TForm1.btnTestClick(Sender: TObject); var str : string[32]; {string最大位数255，其实在内存中占用的是
·2015-11-13 01:43

输入 年，月，显示当月的天数

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1
·2015-11-13 01:43

保存图片到数据库,从数据库里提取图片

下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序： procedure TForm1.Button1Click(Sender: TObject); Var MyJPEG : TJPEGIma
·2015-11-13 01:31

ListBox1相互拖拽数据Demo

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TForm1
·2015-11-13 01:30

DBGrid不支持鼠标的上下移动的解决代码

private  OldGridWnd : TWndMethod;procedure NewGridWnd (var Message : TMessage);publicprocedure TForm1
·2015-11-13 01:30

隔行改变DBGrid网格颜色

然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject
·2015-11-13 01:27

小写金额转换

如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它几乎可以无限制的转换，只要你能读得出来和写得进去：function Tform1.SmallTOBig(small
·2015-11-13 01:18

最精简的小写金额转大写的函数

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1
·2015-11-13 01:16

如何用弹出窗口显示进度

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Gauges; type TForm1
·2015-11-13 01:09

Delphi-时间的显示

下面的代码为在控件中显示本地时间，并为时间添加动态效果 procedure TForm1.Timer1Timer(Sender: TObject); var mytime:TdateTime;
·2015-11-13 01:15

Delphi-Edit中只能输入数字且只能输入一个小数点

1 procedure TForm1.Edit1KeyPress(Sender: TObject;
·2015-11-13 01:14

Delphi-改变鼠标的形状

1 procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //当鼠标移动到标签Label1
·2015-11-13 01:13

delphi将汉字转为首字母

SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs,StrUtils, StdCtrls; type   TForm1
·2015-11-13 00:37

delphi发送邮件

控件  smtp: TIdSMTP;  MgeSend: TIdMessage; 代码 procedure TForm1.Button1Click(Sender: TObject
·2015-11-13 00:35

delphi将图片存储到sql server 2005

sql server 2005 字段类型为 image   delphi使用的单元为jpeg, db, dbtables; delphi 存储图片代码片段 procedure TForm1
·2015-11-13 00:32

快速排序（一个数组先做偶数排序后做奇数排序）

DELPHI 代码 procedure TForm1.Button2Click(Sender: TObject); var   A1: array[
·2015-11-12 12:22

动态数组和指针转换（DELPHI）

Code procedure TForm1.Button1Click(Sender: TObject); var   A: array of
·2015-11-12 12:21

Delphi的悬浮窗口

Delphi 的 TForm.FormStyle 具有 fsStayOnTop 属性,但只是对其 程序本身而言的, 也就是说只在此应用 程序本身的窗口中是前端显示的,其他的 程序的窗口仍然可以覆盖
·2015-11-12 11:59

delphi获得系统当前时间

程序运行结果如图6.1所示 主要代码如下： procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatDateTime
·2015-11-12 11:06

delphi listbox 使用

listbox删除 删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while i
·2015-11-12 11:06

Delphi Rtti 笔记

uses Rtti;procedure TForm1.btn1Click(Sender: TObject);var ctx: TRttiContext;begin ShowMessage(ctx
·2015-11-12 10:36

Delphi中函数定义和声明的位置

　　当函数（或过程）A定义在函数（或过程）B之前，那么函数B就可以调用函数A，并且编译成功，例如下面的 procedure TForm1.btn1Click(Sender: TObject); 和 &
·2015-11-12 10:36

谈谈Delph中i的类和对象2---类可以理解成一种特殊的数据结构、类型转换

比如下面代码为一个按钮（Button1）的单击事件 procedure TForm1.Button1Click(Sender: TObject); var ACaption: String
·2015-11-12 10:23

Delphi 使用MD5 比对文件

使用MD5的方法比对CXimage里图片是否改变： Delphi7实现方法： uses IdHashMessageDigest function TForm1.GetImageMD5
·2015-11-12 10:46

Delphi发送邮件...

///首先在控件栏定位到:Indy Clients加入控件IdSMTP ///再定位到:Indy Misc加入控件IdMessage   ///发送邮件函数 procedure TForm1
·2015-11-12 08:02

使用w使使用webbrowser控件，浏览页面时，点右键查看属性时程序死掉

    procedure EnabledWebBrowserPropertyForm;   procedure TForm.EnabledWebBrows
·2015-11-12 08:57

Delphi Register

Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,ShellAPI,TLHelp32 ; type  TForm1
·2015-11-11 19:53
上一页 2 3 4 5 6 7 8 9 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他