formcreate

注册系统级热键

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 11:17

判断浮点数是否相等

在delphi中： uses Math; procedure TForm1.FormCreate(Sender : TObject); var 　　a : Double; 　　b : Double
·2015-10-31 11:03

图像的柔化处理

  var  Form17: TForm17;  Map1:TBitmap; implementation {$R *.dfm}procedure TForm17.FormCreate
·2015-10-31 11:08

动态创建 listbox释放问题

procedure TForm5.FormCreate(Sender: TObject);begin//**********  ListBox1:=TListBox.Create(self);
·2015-10-31 11:07

桌面滚动文字

procedure TForm10.FormCreate(Sender: TObject);beginBrush.Style:=bsclear;Fx:=0;end; procedure TForm10
·2015-10-31 11:07

FASTSCRIPT脚本实现多国语言

主程序装载脚本 procedure TForm1.FormCreate(Sender: TObject); begin   fsScript1.Clear;   fsScript1
·2015-10-31 11:05

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

//先在窗体添加 ClientDataSet1 和两个 Button { 初始化测试数据 } procedure TForm1.FormCreate(Sender: TObject);
·2015-10-31 10:12

RegularExpressions(3) RegularExpressions 的工作思路

测试代码: uses RegularExpressions; procedure TForm1.FormCreate(Sender: TObject); var Regex: IRegex
·2015-10-31 10:11

创建大窗口

procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Handle, GWL_STYLE
·2015-10-31 10:10

System.Assert 断言

var List: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin // Assert(Assigned
·2015-10-31 10:09

操作 Wave 文件(7): 建立一个空的 Wave 文件(三种方法)

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:08

DateUtils.IsPM - 判断时间是否是下午

Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:59

IsSameDay、IsToday - 判断是不是同一天、判断是不是今天

Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:59

Yesterday、Today、Tomorrow - 昨天、今天、明天

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:59

ParamCount、ParamStr

获取程序参数 //可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开 procedure TForm1.FormCreate
·2015-10-31 10:56

关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题

www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593 //关于父类与子类的类型转换: procedure TForm1.FormCreate
·2015-10-31 10:39

判断字符串中子串个数的函数

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:36

WinAPI: GetKeyboardType - 获取键盘的类型信息

GetKeyboardType( nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量} ): Integer; //举例: procedure TForm1.FormCreate
·2015-10-31 10:27

覆盖虚方法

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:22

抽象类

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:22

方法重载

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:22

类方法调用

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:22

注册系统级热键

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:21

测试代码

Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate
·2015-10-31 10:18

Delphi ADOQuery Demo

procedure TForm2.FormCreate(Sender: TObject);const { Connection string } ConnString = 'Provider=SQLOLEDB
·2015-10-31 10:28

WinForm——把一个窗体的关闭按钮去掉

Delphi 1 procedure TForm1.FormCreate(Sender: TObject); 2 begin
·2015-10-31 10:40

窗体接受拖拽

uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin DragAcceptFiles(Handle, True);end;procedure
·2015-10-31 10:16

uLanguage.pas

ComboBox1Change(Sender: TObject);begin  SetActiveLanguage(ComboBox1.Text);end; procedure TForm1.FormCreate
·2015-10-31 10:13

利用INI文件实现界面无闪烁多语言切换

ComboBox1Change(Sender: TObject);begin  SetActiveLanguage(ComboBox1.Text);end; procedure TForm1.FormCreate
·2015-10-31 10:11

statusbar简单应用

   procedure   TForm1.FormCreate(Sender:   TObject);     var    
·2015-10-31 09:53

用Delphi编程如何判断电脑中运行的QQ号是多少

uses CommCtrl,ShellAPI; var id: array[0..100] of integer; {$R *.dfm} procedure TFrmTray.FormCreate
·2015-10-31 09:50

SetWindowRgn文字窗体

功能说明：SetWindowRgn文字窗体  procedureTForm1.FormCreate(Sender: TObject); var     
·2015-10-31 09:00

SetWindowLong在按钮中显示两行文字

//SetWindowLong在按钮中显示两行文字  procedure TForm1.FormCreate(Sender: TObject); begin   SetWindowLong
·2015-10-31 09:00

SetWindowLong隐藏状态栏的图标

//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClass   procedure TForm1.FormCreate(Sender:
·2015-10-31 09:00

delphi执行查询语句时的进度条怎么做

procedure TForm1.FormCreate(Sender: TObject);  begin     ADOQuery1.ExecuteOptions
·2015-10-31 09:11

关于adoconnection1

Delphi / Windows SDK/API http://www.delphi2007.net/DelphiDB/html/delphi_20061225205158102.html 在Formcreate
·2015-10-30 14:18

Delphi- ini文件的读写操作

一、读INI文件示例 procedure TForm1.FormCreate(Sender: TObject); Var MyIni :Tinifile; glAppPath :string
·2015-10-30 14:05

Direct2D (10) : 文本输出初步

uses Direct2D, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var f: TTextFormats;
·2015-10-28 08:10

DELPHI实现类似仿360桌面的程序界面

1.窗体半透明： Alphablend属性为true;Alphablendvalue的值为100   2.窗体透明： formCreate: Self.TransparentColor
·2015-10-27 15:15

NativeXml (4)：认识根节点

xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件 var xml: TNativeXml; procedure TForm1.FormCreate
·2015-10-27 15:25

NativeXml (3)：保存

uses NativeXml; var xml: TNativeXml; procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-27 15:25

Addr 函数 - 获取对象指针

procedure TForm1.FormCreate(Sender: TObject); var Str: string; pStr: PString; begin Str
·2015-10-27 15:00

防止同一实例多个运行

procedure Tloginform.FormCreate(Sender: TObject); var errno:integer; hmutex:hwnd; begin
·2015-10-23 08:20

简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题

譬如下面小程序: procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 100; Color
·2015-10-23 08:04

delphi中的DBGrid无法刷新数据

而要关闭整个程序再重新打开才能看到新数据代码如下：procedure Tprodgrid.FormCreate(Sender: TObject);begin  ADOQuery1.Active
·2015-10-23 08:37

delphi Sender和Tag的用法

TForm1;  SelectedColor:TColor;//clBlack; //Defaultimplementation{$R *.dfm}procedure TForm1.FormCreate
·2015-10-21 13:41

使用SetTimer函数为Delphi的Win控件设置时钟

procedure Timertodo(var messag:Tmessage);message WM_TIMER; procedure TForm1.FormCreate(Sender: TObject
·2015-10-21 12:27

Delphi XE2 之 FireMonkey 入门(22) - 数据绑定: BindingSource、BindingName、FindBinding()、Binding[]

在窗体上添加 TrackBar1、Edit1、Label1, 然后设置属性(可在设计时): procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-21 12:24

Delphi XE2 之 FireMonkey 入门(24) - 数据绑定: TBindingsList: TBindExpression.Direction

procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-21 12:24

Delphi XE2 之 FireMonkey 入门(11) - 控件居中、旋转、透明

procedure TForm1.FormCreate(Sender: TObject); begin Rectangle1.Width := 1
·2015-10-21 12:17
上一页 1 2 3 4 5 6 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他