TObject

判断某个进程是否存在

Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm)   procedureFormCreate(Sender:TObject
wbryfl·2010-02-05 23:00

将鼠标锁定在一定的范围内

请在Form中放置二个Button,然後分别为这两个按钮定义OnClick响应事件如下://限制procedureTForm1.Button1Click(Sender:TObject);varrtButton2
VBEND·2010-02-03 14:00

delphi类的相互引用

下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap = class;这种格式而不能是IVariantMap = class(TObject
izuoyan·2010-02-03 10:00

delphi类的相互引用

type下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap=class;这种格式而不能是IVariantMap=class(TObject
k1988·2010-02-03 10:00

delphi 之***自身复制加开机启动项『dephi自学笔记』

Graphics,Controls,Forms,Dialogs,Registry,StdCtrls;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject
luobin44·2010-02-02 12:03

木马的自身拷贝功能代码

打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedureTForm1.FormCreate(Sender:TObject); varmyname:string; begin
su_guiyang·2010-01-22 22:38

***的自身拷贝功能代码

,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedureTForm1.FormCreate(Sender:TObject
su_guiyang·2010-01-22 22:38

木马的自身拷贝功能代码

打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedureTForm1.FormCreate(Sender:TObject); varmyname:string; begin
su_guiyang·2010-01-22 22:38

类的声明

Delphi约定最基本的类是TObject，编程中我们所有的对象声明都是由ＴObject或由TObject派生的对象继承而
lyhoo163·2010-01-02 13:00

ADOQuery连接SQL Server刷新后停留在原位置

例一：procedureTForm1.BitBtn1Click(Sender:TObject);var    DoubleNo_nid:Integer;Begin    DoubleNo_nid:=DM.Double_Query.RecNo
samtong·2009-12-29 09:10

delphi 读取剪粘板内的html格式数据

W写下了以下的测试代码：procedureTForm1.Button3Click(Sender:TObject);var i:integer; Buffer:PChar; s:string;begin 
dongdongzzcs·2009-12-21 10:00

delphi idHttp下载文件

procedureTForm1.Button3Click(Sender:TObject);varh:TIdhttp;res:String;MyStream:TMemoryStream;beginMyStream
aroc_lo·2009-12-19 11:00

Delphi - Copy函数效率的问题

.最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧.我们写两段代码来对比下:第一个用Copy函数:procedureTForm1.Button1Click(Sender:TObject
·2009-12-15 21:00

Delphi - 盒子上面看见的一个问题:关于类型转换Type Cast

F1:Integer; procedureSay; end; implementation {$R*.dfm} procedureTForm3.FormCreate(Sender:TObject
·2009-12-15 13:00

打开网页

useShellAPIprocedureTForm1.Label1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginShellExecute
4030127·2009-12-14 08:07

打开网页

useShellAPIprocedureTForm1.Label1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginShellExecute
4030127·2009-12-14 08:07

Delphi中引用TLHelp32单元显示进程列表

 procedureTForm1.Button2Click(Sender:TObject);varlppe:TProcessEntry32;found:boolean;Hand:THandle;P:DWORD
aroc_lo·2009-11-26 15:00

Delphi写内存补丁范例

,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject
aroc_lo·2009-11-26 15:00

Delphi动态事件深入分析

procedureExtClick1(Sender:TObject);begin{asmmoveax,[edx+8]callshowmessageend;}showm
aroc_lo·2009-11-26 14:00

Delphi让你的程序通过XP防火墙

 procedureTForm1.Button1Click(Sender:TObject);varFwMgr,Profile,FwApp:variant;beginFwMgr:=CreateOLEObject
aroc_lo·2009-11-26 11:00

正确格式化日期、时间

 用VCL内置的ShortDateFormat和ShortTimeFormat：procedureTForm1.Button1Click(Sender:TObject);vardt:TDateTime;
qiume·2009-11-23 10:00

在dbgrideh中允许选择多行，如何获取选择行的值

SelectedRows:TBookmarkListprocedureTForm1.Button1Click(Sender:TObject);vari,j:Integer;s:string;beginifDBGrid1
zhengbo2006·2009-11-17 18:00

用IdHTTP获取UTF-8编码的网页

本程序和网上的说法不同，在Ｄ７下执行通过先看一个例子procedureTForm1.Button1Click(Sender:TObject);varResponse2:   TStringStream;
wesoho·2009-11-13 11:08

用IdHTTP获取UTF-8编码的网页

本程序和网上的说法不同，在Ｄ７下执行通过先看一个例子procedureTForm1.Button1Click(Sender:TObject);varResponse2:   TStringStream;
wesoho·2009-11-13 11:08

C++ builder 编程学习笔记

 最小化窗口： Application->Minimize();关闭： Close();打开文件：void__fastcallTConverterForm1::AddFileActExecute(TObject
hxmcnu·2009-11-03 23:00

如何通过图片实现窗体拖动

 onMouseMove中： BlandC++Builder6: void__fastcallTForm1::Image1MouseMove(TObject*Sender,TShiftStateShift
hxmcnu·2009-11-02 20:00

Delphi 中 RadioGroup / pagecontrol 的使用

 //获取RadioGroup项目名称procedureTForm1.RadioGroup1Click(Sender:TObject);begin Text:=RadioGroup1.Items[RadioGroup1
windhaunting·2009-10-31 17:00

截获异常，并在运行时不报错

  待验证     procedure TMainForm.MyException(Sender: TObject; E: Exception);begin 
cqujsjcyj·2009-10-26 17:00

获取屏幕的坐标--GetCursorpos

  GetCursorpos--是个WinAPI来的     procedure TMainForm.Timer1Timer(Sender: TObject);var
cqujsjcyj·2009-10-26 17:00

整数判断

Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Edit1:TEdit;Button1:TButton;procedureButton1Click(Sender:TObject
zendj·2009-10-25 14:00

计算从1加到10000

,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Button1:TButton;procedureButton1Click(Sender:TObject
zendj·2009-10-25 13:00

用矢量变换的方法求两条直线的交点

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject
gisoracle·2009-10-17 19:00

delphi string类型转integer时出错的检测

procedureTForm1.Button1Click(Sender:TObject);Var Num:Integer;Begin Try   Num:=StrToInt(Edit1.Text);   
pgnet·2009-10-14 09:00

delphi BYTE 转字符串

BYTE转字符串procedureTForm3.FormCreate(Sender:TObject);begin Self.Paint;end;functionByteToHex(Src:Byte):String
pgnet·2009-10-07 21:00

TFileStream

类关系TObject->TStream->THandleStream使用TFileStream类可以访问磁盘文件的信息。该类将打开一个全程的文件，并提供方法来读取该文件。
yaneng·2009-09-28 09:00

输入法项目->用delphi 繁体 简体 互转换

 用delphi繁体简体互转换Code//转简体procedure Tfm_Words.Button6Click(Sender: TObject);begin  self.memo_msg.Text :
jfyes·2009-09-26 16:00

用金山词霸进行屏幕取词

Controls,Forms,Dialogs,XDICTGRB_TLB;typeTForm1=class(TForm,IXdictGrabSink)procedureFormCreate(Sender:TObject
dropme·2009-09-24 15:00

利用注册表 将程序设置为开机启动项目

Registry;  procedureTForm.FormCreate(Sender:TObject);varreg:TRegistry; //    注意此处，因为要用到Registry , 所以需要在
shuilan0066·2009-09-18 17:00

Delphi 隐藏窗口表单

    我一开始以为，将表单设置为隐藏，可以在表单创建事件中即FormCreate(Sender:TObject)去设置    因此，我在这个procedureTForm.FormCreate(Sender
shuilan0066·2009-09-18 16:00

ansistring使用大全

//ansistring转charvoid__fastcalltform1::button1click(tobject*sender){     ansistringtest="哈哈";     char
yaneng·2009-09-15 13:00

javac与protected

设计三个类,TObject(基类，其中有个protected void sayHello()方法),TObjectExtends1,TObjectExtends2; 其中TObject和TObjectExtends1
ssssqq·2009-09-09 17:00

对象 引用

群里的写法待测试 procedureTForm1.btn1Click(Sender:TObject);varlStrings:TStrings;beginlStrings:=TStringList.Create
longxin5·2009-09-04 00:00

不规则窗体小技巧

thenbeginReleaseCapture;Self.Perform(WM_SYSCOMMAND,$F012,0);end;  2.创建圆角矩形窗体 procedureTForm1.FormCreate(Sender:TObject
dropme·2009-08-31 17:00

如何屏蔽掉运行时的异常处理错误提示框

老是出现异常处理错误提示框,但是你又想屏蔽掉.方法如下:步骤1:在窗体类声明一个方法//屏蔽所有的异常处理出现的对话框procedureTForm_Recoveryer.OnException(Sender:TObject
Devillyd·2009-08-17 14:00

edit编辑框 判断输入的字符是汉字还是英文

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  begin      if Key=#127 then          
fcrane·2009-08-14 23:00

文件路径相关的字符串操作

usesHTTPApp,Masks;procedureTForm1.Button1Click(Sender:TObject);varss,s:string;begin//先提取一个文件名的字符串ss:=
fcrane·2009-08-13 22:00

[C++再学习系列] STL容器的存储结构

标准容器的存储结构：容器典型情况下每个元素使用的内存块Vector无，统一存储，连续空间，数组Deque分页保存对象Iist双向链表，structLNode{LNode*prev；LNode*next；Tobject
zhenjing·2009-08-11 20:00

获取上一级目录

procedureTForm1.Button1Click(Sender:TObject);var a,b,c:string;begin a:=ExtractFilePath(paramstr(0)); 
zhangshengqi·2009-08-08 19:54

delphi获取Ip

procedureTForm1.Button1Click(Sender:TObject);var  aName:array[0..100]ofchar;  WSData:Twsadata;  a1,a2
zhangshengqi·2009-07-31 19:25

获取时间

procedureTForm1.Button2Click(Sender:TObject);var date:SYSTEMTIME;begin GetLocalTime(date); showmessage
zhangshengqi·2009-07-31 19:37
上一页 35 36 37 38 39 40 41 42 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他