TForm 第7页

Delphi Register

Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI,TLHelp32 ; type TForm1

·2015-11-11 19:53

delphi中屏蔽浏览器控件右键菜单

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var

·2015-11-11 18:18

BYTE 转字符串

procedure TForm3.FormCreate(Sender: TObject); begin Self.Paint; end; function ByteToHex(Src:

·2015-11-11 18:13

DELPHI方面输入EDIT

procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount

·2015-11-11 18:12

(原创)将字符串中所有非空的连续字符串列出来

procedure TForm1.DelimitStr(Str: String; var DeskString: TStrings); var Temp: string; I

·2015-11-11 18:54

(原创)浅谈Delphi高效使用TreeView

-------------------------------------------------------------------------------- procedure TForm1

·2015-11-11 18:53

StringGird 改变字帖颜色

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State

·2015-11-11 18:51

使Delphi 局部常量有全局变量的效果

procedure TForm1.btn1Click(Sender: TObject); {$J+} const // 类似C的静态变量，有全局变量的作用 g_Num: Integer

·2015-11-11 17:46

Delphi7 PAnsiChar String 结构指针

procedure TForm1.Button1Click(Sender: TObject);type PPersonInfo = ^PersonInfo; PersonInfo

·2015-11-11 17:48

delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm2

·2015-11-11 16:58

用最少的代码为你的窗体实现剪贴板操作

procedure TForm1.Cut1Click(Sender: TObject); begin SendMessage&

·2015-11-11 16:54

DELPHI QQ2008聊天内容获取

Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1

·2015-11-11 16:48

Delphi调用存储过程

nbsp;AS begin select * from person where nianling>@age; end; GO 调用例子通过ADOQUERY调用代码 procedure TForm1

·2015-11-11 16:36

如何获取系统菜单名列

1、在主界面模块上放置openoffice控件，并改名为MO1 2、添加如下过程 procedure TForm1.PrintAllMenuItem(AMainMenu: TMainMenu;

·2015-11-11 14:11

dbchart

procedure TForm1.Button1Click(Sender: TObject);var // series1:TBarSeries;// series2:TPieSeries

·2015-11-11 14:53

Delphi-TTreeView

function TForm1.GetGlobeNumCode(inNode: TTreeNode): string; {功能：产生已存在节点对应的全局编号入口参数：inCode:TTreeNode

·2015-11-11 14:23

(转 )Delphi指针如何指向使用with开域语句创建的无名组件对象

procedure TForm1.Button1Click(Sender: TObject); var P: Pointer; begin P : =

·2015-11-11 13:13

不同进程间发送数据（DELPHI）

发送端 procedure TForm1.Button1Click(Sender: TObject); var ds: TCopyDataStruct; hd: THandle

·2015-11-11 13:12

test是否被执行？

procedure TForm2.Button1Click(Sender: TObject); function test(value:boolean):boolean; begin

·2015-11-11 12:39

无边框窗体随鼠标移动

在窗体的MouseDown事件中写即可： Delphi: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouse

·2015-11-11 11:36

随机产生不重复数字

25/1362519.html 下面是一个在14个数据产生10个不重复的随机数 ----------------------------------------------- procedure TForm1

·2015-11-11 11:19

delphi2010 向另一个窗口发送鼠标点击事件

procedure TForm1.Button1Click(Sender: TObject);var szText: array[0..254] of char; hCurrentWindow

·2015-11-11 11:14

delphi向另一程序窗口某处发送鼠标事件所用的工具

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm2

·2015-11-11 11:14

设置默认输入法

uses TypInfo procedure SetImeA(AOwner:TForm);var i:Integer;begin for i := 0 to AOwner.ComponentCount

·2015-11-11 09:14

AnsiString类型定义的时候可以直接指定代码页，比如950繁体字，936日文

procedure TForm3.FormCreate(Sender: TObject); type AnsiStringForPage = type AnsiString(950);//代码页

·2015-11-11 07:44

CopyMemory Move使用笔记

uses math; procedure TForm2.Button1Click(Sender: TObject); type TTArrayByte=

·2015-11-11 07:43

关于日期与字符串转换时出错的分隔符，小记一下容易忘记

procedure TForm2.Button1Click(Sender: TObject);var pDateTime:TDateTime;begin FormatSettings.DateSeparator

·2015-11-11 07:40

Delphi GDI+ 绘图（1）

//举例: {绘制直线} procedure TForm1.Button1Click(Sender: TObject);

·2015-11-11 06:04

屏幕截图、窗口截图、指定区域截图

Use Jpeg procedure TForm1.snapscreen(a,b,c,d:Integer);var bmpscreen:Tbitmap; jpegscreen:

·2015-11-11 05:34

Delphi初浅入门笔记之十二：多媒体编程五(绘制文字篇)

procedure TForm1.Button1Click(Sender: TObject); const arr:array[0..3] of WideString=('白日依山尽','黄河入海流',

·2015-11-11 03:30

Delphi初浅入门笔记之十一：多媒体编程四(画笔篇)

procedure TForm1.FormPaint(Sender: TObject); var trect1:trect; begin canvas.Pen.Color:=clred; //canvas.Pen.Width

·2015-11-11 03:30

Delphi初浅入门笔记之十：多媒体编程三(打开图片篇)

Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, jpeg; type TForm1

·2015-11-11 03:29

Delphi初浅入门笔记之九：多媒体编程二(媒体播放器控件篇)

Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; type TForm1

·2015-11-11 03:28

Delphi初浅入门笔记之八：多媒体编程一(了解篇)

调用WindowsAPI播放声音： procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin sndplaysound

·2015-11-11 03:27

Delphi初浅入门笔记之三：过程和函数（过程篇）

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1

·2015-11-11 03:24

取SQLSERVER服务器上的时间

取SQLSERVER服务器上的时间 procedure TForm1.btn1Click(Sender: TObject);begin try qry1

·2015-11-11 03:58

获取计算机名和IP

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,WinSock; type TForm1

·2015-11-11 00:29

局域网内程序的更新 2

更新过程： 1.FTP的连接：(FTPConnect:Boolean) Function TForm1.FTPConnect:Boolean;begin result

·2015-11-11 00:28

delphi INI 文件

可以参考以下代码段 procedure TForm1.FormCreate(Sender: TObject); begin // 使用TIniFile类的Create成员函数建立TIniFile对

·2015-11-11 00:26

C++复制文件（使用WindowsAPI）

bool TForm1::CopyFile2() { AnsiString srcPath = ExtractFilePath(Application->ExeName

·2015-11-11 00:31

C++复制文件的代码

bool TForm1::CopyFile() { DWORD fileSize, pos; int readLen;

·2015-11-11 00:31

Delphi开发的IP地址修改工具

用Delphi进行开发的，直接修改注册表，需重启电脑后才生效 procedure TForm1.SpeedButton3Click(Sender: TObject); var reg:TRegistry

·2015-11-10 23:21

Delphi PageControl.TTabSheet与DriveComboBox.items同步

procedure TForm1.Button1Click(Sender: TObject); Var X,I,Y:integer; cText:String; bNext

·2015-11-10 23:19

Delphi 动态创建窗体，锁定窗口赋值

Var TempForm: array of TForm2; procedure TForm1.Button2Click(Sender: TObject); Var i:Integer

·2015-11-10 23:09

Button1.OnClick := Form1.Button1Click;

2）Procedure Button1Click(Sender: TObject); 这个过程归属于TForm1，还是Button1？

·2015-11-10 23:00

delphi 读写文本文件

procedure TForm1.Button1Click(Sender: TObject); //写文件 var wText: TextFile;begin AssignFile

·2015-11-10 23:50

OpenDialog获取文件名

//OpenDialog获取文件 procedure TForm2.Button1Click(Sender: TObject); begin File_Path:='';

·2015-11-10 22:56

BCB中移动无标题窗口的

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton

·2015-11-10 22:23

[BCB] 遍历界面所有元素

（TComponent类，声明） Components （TWinControl类，声明） Controls (1) 对Panel1中控件有效： void __fastcall TForm1

·2015-11-10 22:16

TImage里的图形转为TJPEGImage，TBitmap

void __fastcall TForm1::Button1Click(TObject *Sender){ Graphics::TBitmap

·2015-11-10 22:14

推荐频道

TForm