TForm

TidSMTP 带附件发信

#include "IdAttachmentFile.hpp" void __fastcall TForm1::Button1Click(TObject *Sender) { IdMessage1
·2015-11-10 22:06

BCB获取应用程序图标并显示

void __fastcall TForm1::FormCreate(TObject *Sender){        SHFILEINFO
·2015-11-10 22:05

BCB中显示图片BMP和JPEG

 void __fastcall TForm1::FormPaint(TObject *Sender){     //从资源中加载BMP图片显示  
·2015-11-10 22:03

BCB中基本图形的绘制

 void __fastcall TForm1::FormPaint(TObject *Sender){   //绘制点    for (int
·2015-11-10 22:01

创建一个文字窗体

文字窗体代码 procedure  TForm1.btn1Click(Sender: TObject); var   rgn:HRGN; begin
·2015-11-10 22:18

Delphi中动态生成的button调用onclick如何传递参数

代码 //  自定义事件过程，过程名可以任意取 procedure  TForm1.OnClick(Sender: TObject); begin  
·2015-11-10 22:10

delphi中关于时间差的实例

查了一下资料，整理如下： 首先 uses dateutils; 先自己做了个实例，相关代码如下： 代码 uses  dateutils; procedure  TForm1
·2015-11-10 22:08

最简单的限制edit输入

procedure  TForm1.Edt_NumKeyPress(Sender: TObject;  var  Key: Char);  
·2015-11-10 22:06

鼠标的获取和信息的识别

procedure TForm1.btnClick(Sender: TObject); var bmp:TBitmap; hCur : TCursorInfo
·2015-11-10 22:52

Delphi写的等待进程运行结束函数

  procedure  TForm1.Button1Click(Sender: TObject); var   sCommandLine:&
·2015-11-10 22:44

DELPHI时间触发事件!

 1  procedure  TForm1.Timer2Timer(Sender: TObject);     2 
·2015-11-10 22:35

c++ builder TreeView控件节点遍历

void __fastcall TForm1::GetRootNodes(TTreeView *DestTreeView)//得到所有根节点 { TTreeNode *vNode =
·2015-11-09 14:42

c++ builder ListView实现可编辑任意列

---------------------------------------------------- 2 // Form的构造函数中填充StrinGrid单元格 3 __fastcall TForm1
·2015-11-09 14:41

位运算

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

有序类型的大小及最大、最小值

有序类型的大小及最大、最小值 procedure TForm1.Button1Click(Sender: TObject); var b: Byte; w: Word; i: Integer
·2015-11-09 13:04

结果集手工排序

现在客户想通过一个向上和向下的按钮来调整结果集中记录的顺序,通过测试,可以通过下面的方法来简单操作(下面仅简单说明下上移动记录的方法,向下移动方法同此,略):    1  procedure  TForm3
·2015-11-08 17:58

Delphi中的数据库插件

type  TfrmMain = class(TForm) …… private:     procedure LoadPlugin(sr: TSearchRec
·2015-11-08 17:43

Delphi方法

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1
·2015-11-08 15:50

Delphi 过程类型

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons; type TForm1
·2015-11-08 15:50

Delphi初始化与结束化

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1
·2015-11-08 15:50

Delphi方法重载

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons; type TForm1
·2015-11-08 15:49

表格控件表头栏目（Column）与数据表头步

procedure TForm1.SpeedButton1Click(Sender: TObject); Var LCount,I:integer; begin ADOQuery1.Clo
·2015-11-08 15:45

Delphi 7中如何修改Form1: TForm1;

Delphi 7中如何修改Form1: TForm1;  1]选中对应的Form,  2]在Object Inspector里的Name修改,  3]回车，
·2015-11-08 15:13

在多次改变 RichEdit.Text部份文本的颜色后，出现所有字体都变色的的解决办法

Procedure  TForm1.FormCreate(Sender: TObject); Begin   RichEdit1.Text :=
·2015-11-08 15:07

U盘插入拔出提示

, Graphics, Controls, Forms,   Dialogs, AppEvnts, ExtCtrls, StdCtrls, ShellAPI; Type   TForm1
·2015-11-08 15:02

EM数据包按规则更新

Variants, Classes, Graphics, Controls, Forms,  Dialogs, ADODB, DB, StdCtrls, ExtCtrls; type  TForm1
·2015-11-08 15:32

ScrollBox 响应鼠标滚轮和ComboBox禁止滚动

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos:
·2015-11-08 15:22

cxgrid HyperLink 鼠标显示效果

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
·2015-11-08 15:04

TJPEGImage简单用法

void __fastcall TForm1::Button1Click(TObject *Sender) { TJPEGImage *jp = new TJPEGImage(); jp->LoadFromFile
·2015-11-08 14:40

C++ builder 中AnsiString的字符串转换方法大全

C++ builder 中AnsiString的字符串转换方法大全   //Ansistring 转 charvoid __fastcall TForm1::Button1Click(TObject
·2015-11-08 14:23

用画刷在屏幕上写字

procedure TForm1.btn1Click(Sender: TObject); var c:TCanvas; begin c:= TCanvas.Create; c.Pen.Width
·2015-11-08 14:48

delphi 后台截图

Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow'; procedure TForm1
·2015-11-08 14:47

利用TBDBitmapData对象查找两张图片上的不同

不完整代码如下： procedure TForm1.Button5Click(Sender: TObject);var    Bmp1,Bmp2 : TBDBitmapData;&
·2015-11-08 14:46

FormCreate & FormActivate & FormShow执行顺序演示

procedure TForm1.FormCreate(Sender: TObject);begin  form1.Caption:=form1.Caption +'+Create'; end
·2015-11-08 13:33

Lazarus 指针,数组,字符串

type tsArr=array [0..2] of char; tbArr=array [0..2] of byte; procedure TForm1.abc; const
·2015-11-08 11:51

老外写的在桌面添加快捷方式（DELPHI XE5 ANDROID）

FMX.Platform.Android, AndroidApi.JniBridge, AndroidApi.Jni.App,AndroidAPI.jni.OS;   procedure TForm1
·2015-11-08 11:17

判断SQL SERVER 服务是否断开

Graphics, Controls, Forms, Dialogs,   StdCtrls, Psock, NMDayTim, ExtCtrls, ComCtrls; type   TForm1
·2015-11-08 09:38

Json(四)：Json增、删、改

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1
·2015-11-07 15:17

Json(三)：构建方式与 AsJSon

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1
·2015-11-07 15:16

ehlib ado 删除选中记录 的方法

procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := DBGridEh1.SelectedRows.Count
·2015-11-07 15:01

ADO SQL delete 日期条件参数

Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type TForm1
·2015-11-07 15:59

superobject数组添加json对象，用的是引用

1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 ja,jo: ISuperObject; 4 I: Integer
·2015-11-07 15:32

专门用于字串列表的TStringList,可以保存为文件,也可以Sort

String用法也比较简单 --------------------------------------------------------------------------- procedure TForm1
·2015-11-07 15:27

Queue(队列的使用)

注意:同样引用 Contnrs -------------------------- procedure TForm1.Button3Click(Sender: TObject); var a:TQueue
·2015-11-07 15:25

Stack栈的使用

要引用:Contnrs -----------------------  procedure TForm1.Button1Click(Sender: TObject); var a:TStack
·2015-11-07 15:25

使用GIF(仅限Delphi2007)

----------- uses GIFImg; procedure TForm1.FormCreate(Sender: TObject); begin   // 先在窗体上放一个 TImage
·2015-11-07 15:14

限定鼠标只能在Form内移动

procedure TForm1.Button1Click(Sender: TObject); var   a: TRect; begin   a.Left := Form1
·2015-11-07 15:11

dbgrid中根据任一条件某一格变色

procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject;     const Rect: TRect; DataCol
·2015-11-07 15:07

取得硬盘序列号

function tform1.GetHDSerialNumber: LongInt;         {$IFDEF WIN32}  
·2015-11-07 15:06

改变Dbgrid的选定色

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;     Field: TField
·2015-11-07 15:05
上一页 4 5 6 7 8 9 10 11 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他