TObject 第31页

delphi的goto语句

procedure TForm1.Button1Click(Sender: TObject); var x: Integer; label n1,n2,n3,4; //goto的标签可以是标识符

slj_win·2014-05-24 21:00

colordialog对象在delphi中哪里加入

为按钮的OnClick事件建立事件处理过程如下：procedureTForm1.ChangeColorClick(Sender:TObject);begini

slj_win·2014-05-22 16:00

FireDAC 下的 Sqlite [7] - 备份、优化、事务(Transaction)

procedure TForm1.Button1Click(Sender: TObject); begin {先初始化目标} FDConnection1.DriverName := 'SQLite

·2014-05-22 15:00

FireDAC 下的 Sqlite [6] - 加密

dbPath = 'C:\Temp\SQLiteTest.sdb'; {建立加密数据库, 密码是 mm123} procedure TForm1.FormCreate(Sender: TObject

·2014-05-21 22:00

FireDAC 下的 Sqlite [3] - 获取数据库的基本信息

TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemo procedure TForm1.FormCreate(Sender: TObject

·2014-05-20 23:00

Delphi中inherited的详细用法

如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数Create(AName:string);子类有个函数Create(AName:string;AComponent:TObject

alongwilliam·2014-05-20 11:00

Delphi的函数指针

不求全面，先留个爪： TNotifyEvent = procedure(Sender: TObject) of object; TMethod = record Code, Data

·2014-05-11 19:00

Delphi利用Windows GDI实现文字倾斜

procedureTForm1.FormPaint(Sender:TObject);var FLogFont:tagLogFontW; hTempFont,hPrevFont:HFONT;//字体句柄

vga·2014-05-03 13:00

动态创建Ⅰ

//单独动态创建一个控件； procedure TForm1.BitBtn1Click(Sender: TObject);var myPanel : TPanel;begin

·2014-05-03 11:00

用TIdIPWatch获取本地IP

二，实际代码：procedureTMainForm.localIpBtnClick(Sender:TObject);var IdIPWatch:TIdIPWatch;//TIdIPWatch类实例begin

sunylat·2014-05-02 21:00

delphi 获取鼠标当前位置的相对坐标

//方法一:使用OnMouseDown事件的参数:procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState

vga·2014-04-27 17:00

DIY个照相机-Delphi实现摄像头拍照功能

procedureTfrm1.Button2Click(Sender:TObject);Varjpeg:TJPEGImage;bmp:TBitmap;MyStm:TMemoryStream;strfilename

lhq_215·2014-04-27 13:00

delphi操作Inifile

procedureTfrmDataModule.DataModuleCreate(Sender:TObject);var reg:TRegistry; lfIni:TiniFile; lsDBName,

鹅倌·2014-04-24 11:52

DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动

DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState;

vga·2014-04-23 15:00

淘宝接口 TopAPi

OnClick事件中写入如下代码：[delphi] view plaincopyprocedureTfrmMain.btnCallTopAPIClick(Sender: TObject

·2014-04-21 16:00

VCL里的构造函数

----------------------------VCL关键类------------------- TObject = class constructor Create;

·2014-04-18 17:00

解决 IndyFTp 乱码问题 10.6.0

在ftp的FTPOnConnected事件写入： procedureTfrmMain.FTPConnected(Sender:TObject);begin //FTP.DefStringEncoding

vga·2014-04-14 05:00

Delphi里J+开关作用类似C语言的static变量

從前筆者曾經對以下的程式產生過疑惑:{$J+}procedure TForm1.Button1Click(Sender: TObject);const VarConst: integer =

·2014-04-07 23:00

delphi 文件操作

先上个例子procedure TForm1.Button1Click(Sender:TObject);//写文件var wText:TextFile;begin AssignFile(wText,'ip.txt

yuhaiyang_gz·2014-03-05 19:47

如何注册系统热键

SysUtils,Classes,Graphics,Controls,Forms,Dialogs;type TForm1=class(TForm) procedureFormCreate(Sender:TObject

鹅倌·2014-03-01 08:07

Delphi对象池MyObjectPool.pas

uses SyncObjs, Classes, Windows, SysUtils; type TObjectBlock = record private FObject:TObject

·2014-02-24 17:00

delphi 常用函数

Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject

yunshouhu·2014-02-21 17:21

delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法

procedureTForm1.Button1Click(Sender:TObject); var jpg:TJPEGImage;//要useJpeg单元 begin //显示jpg大图片的方式 jpg

hutao1101175783·2014-02-09 18:00

获取当前鼠标的坐标

procedureTForm1.FormClick(Sender:TObject); var pt:TPoint; begin GetCursorPos(pt);{这是获取的相对于屏幕的坐标} pt:=

hutao1101175783·2014-02-09 16:00

基于C++的事件机制设计 Based on［C++0x]

it'stheverytimetoimproveoriginalC++eventsystem.Thethoughtisassameas[2.0].Hereisthecodelist.TherootObject:classTObject { public: TObject

igame·2014-02-02 23:00

TVirtualStringTree的Minimal例子学习

TMyRec = record Caption: WideString; end;预步骤第二步，规定取得节点数据时候的大小procedure TMainForm.FormCreate(Sender: TObject

·2014-01-27 01:00

在无法改动bs架构的基础上，添加新的功能（2）浏览器

BeforeNavigate2(ASender:TObject; constpDisp:I

红烧土豆·2014-01-26 16:00

destroy, free, freeAndNil, release用法和区别

1)destroy:虚方法释放内存,在Tobject中声明为virtual,通常是在其子类中override 它，且要加上inherited关键字，才能保证派生类对象正确地被销毁; 但destroy一般不能直接用

KavenSu·2014-01-20 11:00

c++ builder SaveDialog1 保存生成的txt文件乱码

c++ builder SaveDialog1 保存生成的txt文件乱码我是按照网上 void __fastcall TChildFrm::Save1Click(TObject *Sender

peixiaofu·2014-01-17 16:00

sybase 导出DDL语句以及ddlgen的描述

工具路径：%sybase%/ASEP/bin注：%sybase%为客户端安装目录语法：ddlgen-Uusername-Ppassword-Sserver–Ddbname–Tobject_type–Nobject_name-T

xztelecomlcs·2014-01-16 16:48

Delphi TNotifyEvent是Delphi中基本通知事件的类型

TNotifyEvent是Delphi中基本通知事件的类型,定义为： type TNotifyEvent = procedure(Sender: TObject) of object;

alongwilliam·2014-01-12 17:00

Delphi的OpenGL控件

System.Classes,Vcl.Controls,Winapi.Messages, Winapi.OpenGL,Winapi.Windows; type TDebugEvent=procedure(Sender:TObject

cust_hf·2014-01-06 11:00

捕获ClientDataSet.ApplyUpdates和SocketConnection异常

ClientDataSet.ApplyUpdates的错误，不用ReconcileError...var cdsEmp:TClientDataSet; //保存 procedureTfrmEmp.btnSave(Sender:TObject

xieyunc·2013-12-31 13:00

Delphi调用一个外部程序时，如何把外部程序的窗体放在主程序窗体的Panel上?

procedureTForm1.Button2Click(Sender:TObject); varvh:HWND; begin ShellExecute(Self.Handle,'open',Pchar

xieyunc·2013-12-16 21:00

Delphi_WebBrowser禁止弹出Alert对话框

Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页Alert弹出的对话框，代码：procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject

wbryfl·2013-12-02 20:00

Delphi WebBrowser始终在当前窗口打开新网页

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool)

wbryfl·2013-12-02 19:00

Delphi中TWebBrowser中注入Js

代码如下：procedureTForm1.Button2Click(Sender:TObject);vari:integer;h:IHTMLHeaderElement;o:OleVariant;begino

一剑平江湖·2013-11-27 22:58

delphi 更改DBGrid 颜色技巧

1、根据条件更改某一单元格的颜色 [delphi] viewplaincopyprocedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; const

qq752923276·2013-11-12 09:00

BCB6.0中的FUNC(vc++6.0中没有此功能)

void__fastcallTForm1::Button1Click(TObject*Sender) { AnsiStrings1=__FILE__; AnsiStrings2=__FUNC__;

stpeace·2013-11-09 10:00

禁止截屏PrintScreen

procedureTForm1.FormCreate(Sender:TObject);begin RegisterHotKey(Handle,IDHOT_SNAPDESKTOP,0,VK_SNAPSHOT

u013805103·2013-10-11 10:00

Delphi XE5 for Android （三）

在VCL下，常用的询问对话框包括 procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); begin if Application.MessageBox

·2013-10-07 21:00

DELPHI下让HGE初始化在某个窗口内范例！

procedureTMainForm.FormCreate(Sender:TObject);begin HGE:=HGECreate(HGE_VERSION); HGE.System_SetState(

YiLuSuiYun·2013-09-30 20:00

Delphi 中的MD5实现方法及delphi2009和delphi2010中以上用法

示例代码procedureTForm1.Button1Click(Sender:TObject);varMy

jyxy521·2013-09-28 16:02

c++builder隐藏程序任务栏图标 .

1.void__fastcallTfrmLogHook::FormCreate(TObject*Sender){DWORDdwExStyle=GetWindowLong(Application->Handle

anyqu·2013-09-19 13:00

LookUpCombobox 多列模糊查询

然后在cxLookupComboBox1PropertiesChange写代码 procedure TForm1.cxLookupComboBox1PropertiesChange(Sender: TObject

lanfei·2013-09-11 16:00

Delphi中实现Access数据库备份和恢复的代码

（使用的是文件复制和替换方式）procedureTBackup.Button1Click(Sender:TObject);v

jyxy521·2013-09-05 13:02

delphi中Tedit输入金额数字

procedureTform1.Edit1KeyPress(Sender:TObject;varKey:Char); //控制edit1的输入数字var p:Integer;begin //限制只能输入数字

delphi308·2013-09-03 11:00

stdcall 函数调用过程（以delphi为例），还有负数的补码

以delphi下调用stdcall 函数为例，从右往左压栈：procedure TForm1.Button2Click(Sender: TObject);var i:integer;begin i:=Add3

·2013-08-30 18:00

Lazarus中Base64的操作

首先需要在引用单元的时候使用： use base64; 1.解密加密函数这个函数直接对字符串进行解密、加密操作，非常简单： procedure TForm1.Button1Click(Sender:TObject

·2013-08-29 21:00

delphi动态数组指针问题

就一个button事件 procedure TForm1.btn7Click(Sender: TObject); Type TMyArr = array of array of array

·2013-08-28 08:00

推荐频道

TObject