TObject

delphi 获取某个页面所有的链接

USERMSHTML procedureTfrmWebEmail.btn5Click(Sender:TObject); var Doc:IHTMLDocument2; Len:Integer; item
yanjiaye520·2012-09-17 14:00

delphi下载文件，delphi从http服务器上下载文件

Controls,Forms,Dialogs,StdCtrls,UrlMon;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject
牛一样的程序员·2012-09-13 19:44

Delphi 获取网站验证码的图片

uses ActiveX,ComObj; procedureTfrmMain.FormCreate(Sender:TObject); begin OleInitialize(nil); end; procedureTfrmMain.DomImg2Image
yanjiaye520·2012-09-07 16:00

简单的程序

Forms, Dialogs,StdCtrls, Unit2;type TForm1=class(TForm)   btn1:TButton;   procedurebtn1Click(Sender:TObject
sharksoftster·2012-09-04 22:01

delphi 发送Windwos消息控制按钮

 procedureTfrmMain.btnSendClick(Sender:TObject); var hCalc,h1:Cardinal; begin WinExec('calc',SW_SHOWNORMAL
yanjiaye520·2012-09-04 15:00

BCB利用VBScript正则表达式处理字符串

转自：http://www.cnblogs.com/NewZi/archive/2011/01/29/1947545.htmlvoid__fastcallTForm1::Button1Click(TObject
qq752923276·2012-09-03 15:00

delphi中的Supports函数详解

functionSupports(constInstance:IInterface;constIID:TGUID;outIntf):Boolean;overload; functionSupports(constInstance:TObject
sushengmiyan·2012-09-02 14:00

MDI切换到上次显示的子窗口

void__fastcallTMainBuilder::mnuWindow_LastVisitedClick(TObject*Sender) { constHWNDhwnd=m_hLastActiveChild
alphabuilder·2012-08-28 10:00

在 API 函数中使用 PChar 参数的几种方法(自万一博客)

//以 GetWindowsDirectory 为例: { 以静态数组做缓冲区 } procedure TForm1.Button1Click(Sender: TObject); var &
pascal4123·2012-08-13 10:00

delphi如何隐藏webBrowser的滚动条，如何屏蔽右键

procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject; constpDisp:IDispatch;varURL:OleVariant);
hank5658·2012-08-10 15:00

Delphi 文件夹操作

uses ShellApi //建立文件夹 procedureTfrmMain.cxButton1Click(Sender:TObject); begin CreateDirectory(PChar(
yanjiaye520·2012-08-04 22:00

Memo 的当前行、当前列与当前字符

procedure TForm1.Memo1Click(Sender: TObject); begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X
java-mans·2012-07-30 22:00

Delphi学习笔记(2) 获取磁盘信息 应用程序

2，双击按钮，生成一个TForm1.btn1Click(Sender:TObject)事件。在代码处添加如下代码：procedureTForm1.btn1Click(Sender:TObject);
welcome000yy·2012-07-25 22:00

Delphi下JS和FORM的互操作

一、添加BeforeNavigate2 事件处理过程procedureTForm1.WebBrowser1BeforeNavigate2(ASender:TObject; constpDisp:IDispatch
jingshishengxu·2012-07-20 11:00

webbrowser控件和form窗体无缝结合示例

procedureTForm2.WebBrowser1DocumentComplete(ASender:TObject; constpDisp:IDispatch;varURL:OleVariant);
jingshishengxu·2012-07-20 11:00

Delphi TStrings取得Ini文件键值对

  Delphi TStrings取得Ini文件键值对的简单方法如下： procedure TForm1.BitBtn1Click(Sender: TObject); var StrList
xinzheng_wang·2012-07-20 07:00

Delphi TStrings取得Ini文件键值对

DelphiTStrings取得Ini文件键值对的简单方法如下：procedureTForm1.BitBtn1Click(Sender:TObject); var StrList:TStrings; I
xinzheng_wang·2012-07-20 07:00

Delphi 禁用TEdit右键菜单及复制粘贴

:= True; 2) 在TEdit的OnContextPopup中使Handled := True procedure TFrmReport.Edit1ContextPopup(Sender: TObject
xinzheng_wang·2012-07-19 11:00

Delphi 禁用TEdit右键菜单及复制粘贴

.ReadOnly:=True;2) 在TEdit的OnContextPopup中使Handled:=TrueprocedureTFrmReport.Edit1ContextPopup(Sender:TObject
xinzheng_wang·2012-07-19 11:00

CreateAnonymousThread

Form1.Canvas.TextOut(20,10,IntToStr(i));Form1.Canvas.Unlock;end;end;procedureTForm1.Button1Click(Sender:TObject
bluewind23·2012-07-10 23:00

Delphi GDI对象之绘制位图

procedureTForm1.btn1Click(Sender:TObject); var Bitmap:TBitmap; begin
瓢虫Monster·2012-07-06 13:00

Delphi汉字简繁体转换代码

unit ChineseCharactersConvert;interfaceuses  Classes, Windows;type  TGBBIG5Convert = class(TObject
ylilike·2012-07-02 15:00

delphi通过OLE对word进行单元格合并操作

上图为最终结果，直接上代码： usescomobj,word2000 procedureTForm1.Button2Click(Sender:TObject); var WordApp,WordDoc
csm2432·2012-06-27 13:00

delphi 遍历注册表

uses  Registry;        procedure  TForm1.Button1Click(Sender:  TObject);    Var    list,softList  :TStringList
lw001x·2012-06-19 22:00

DBgrid 第一列加入CheckBox，点击列头 全选/全消

列验证是否被选中然后dbgrid第一列的filedname是bit列在DBgrid的onDrawColumnCell事件中写：procedureDBGrid1DrawColumnCell(Sender:TObject
lcfeng1982·2012-06-18 15:00

Delphi 进程之间传递cmd参数

uses ShellAPI;{Unit1.pas}通过这个单元的Button，调用另一个实例；procedureTForm1.Button1Click(Sender:TObject);beginShellExecute
yanjiaye520·2012-05-22 11:00

窗体滚动条

procedure TFrmZxjsjbhzsfjlfwjlDj.FormMouseWheel(Sender: TObject;   Shift: TShiftState; WheelDelta
lanfei·2012-05-21 21:00

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

Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)   procedureFormMouseDown(Sender:TObject
beyondqd·2012-05-21 17:00

Delphi 中StringList带空格分割

空格都自动转成分割符处理.在代码中加入:stringlist.StrictDelimiter:=True;可以避免这种情况.示例代码:procedureTForm1.btn1Click(Sender:TObject
znhyz1·2012-05-20 15:00

Delphi 中StringList带空格分割

示例代码: procedure TForm1.btn1Click(Sender: TObject);vars : TStringList;begins := TStringList.Create;
znhyz1·2012-05-20 15:00

Delphi 文件的读取（1）

procedureTForm1.Button1Click(Sender:TObject);variFileHandle:Integer;iFileLength:Integer;iBytesRead:Integer
lailai186·2012-05-14 17:00

实现TStringGrid的左对齐、居中和右对齐

//sgrdQty:TStringGridprocedureTfrmPDStock.sgrdQtyDrawCell(Sender:TObject;ACol,ARow:Integer; Rect:TRect
chelen_jak·2012-05-12 11:00

使用OpenCv的cvMinAreaRect2函数获取轮廓的可倾斜最小矩形区域

procedureTFrmMain.BtnFreeManClick(Sender:TObject);var oImg,oImg2,oImg3:PIplImage; contours:PCvSeq; p:
henreash·2012-04-26 09:00

OpenCv调整图像大小及仿射变换(旋转)

缩放：procedureTFrmMain.BtnResizeClick(Sender:TObject);var pImg:PIplImage; pDst:PIplImage;begin ifnotOpenDialog1
henreash·2012-04-25 11:00

uniGUI中Cookies使用中文汉字的方法

查询UniGui论坛，得到以下解决方法：procedureTMainForm.UniButton1Click(Sender:TObject); var
shuiying·2012-04-24 09:00

Delphi-ADOQuery查询、插入、删除、修改

procedureTForm1.Button1Click(Sender:TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add(
鹅倌·2012-04-24 09:09

调用OpenCV的cvFindContours方法获取图像边界

//得到图像的外边框 procedureTFrmMain.Button3Click(Sender:TObject);var oImg,oImg2:PIplImage; contours:PCvSeq; 
henreash·2012-04-20 10:00

delphi TPersistent类

TPersistent类   TPersistent类是由TObject直接派生的。凡是由TPersistent派生的对象都能够进行流操作。
lailai186·2012-04-07 16:00

令编辑窗口只能保存，不能取消

方法）；      2.点击右上角的交叉时拦截并给出提示(CloseQuery方法)；实现方法：     procedureTfrmAskVSEditor.aCancelExecute(Sender:TObject
chelen_jak·2012-04-07 14:00

Tobject 类解析

TObject=class   //创建   constructorCreate;   //释放   procedureFree;   //初始化实列   classfunctionInitInstance
lailai186·2012-04-05 20:00

richedit读写image字段

%D6%D0%CC%EC%B4%F3%C3%D7/blog/item/31ea821fdbc05467f724e41e.htmlprocedureTForm2.Button1Click(Sender:TObject
chelen_jak·2012-04-03 12:00

delphi执行一个外部程序，当外部程序结束后，delphi程序立即响应

procedureTForm1.Button1Click(Sender:TObject);var SEInfo:TShellExecuteInfo; ExitCode:DWORD; ExecuteFile
beyondqd·2012-04-02 01:00

动态改变编辑窗体Caption的方法

方法1:利用窗体OnShow事件（后面不会加“-编辑”或“-查看”）procedureTfrmCustomerBiz.FormShow(Sender:TObject);begin inherited; 
chelen_jak·2012-03-31 14:00

汽车类.轮子类，发动机类。。。delphi的一些问题

比如{父类：汽车类} Tcar=class(TObject) private name:string; Fwheel:Twheel; Fbrake:Tbrake; Fengine:Tengine; Fcarbody
sushengmiyan·2012-03-22 21:00

delphi面向对象程序设计

第四讲：delphi面向对象程序设计类的声明：type类名=class数据成员成员函数或过程end;都集成自TObject，成员函数不允许在数据成员上定义。类typestudent=c
luolunz·2012-03-20 10:00

delphi面向对象程序设计

第四讲：delphi面向对象程序设计 类的声明： type 类名=class 数据成员 成员函数或过程 end; 都集成自TObject，成员函数不允许在数据成员上定义。
wsql·2012-03-20 10:00

delphi7 读写txt

 procedureTForm1.newClick(Sender:TObject);varf:textfile;filename:string;begin filename:='a.txt'; ifnotfileexists
3cts·2012-03-16 21:21

打开网页

usesShellAPI;procedureTForm1.Button1Click(Sender:TObject);begin //用IE打开 ShellExecute(Handle,'open','IExplore.EXE
haohaizi678·2012-03-16 19:32

Delphi 清除IE缓存 internet临时文件 cookie 历史记录 表单记录 上网密码[转]

转自http://www.delphitop.com/html/xitong/1576.html TForm1.Button1Click(Sender:TObject);beginShellExecute
aTian2009·2012-03-12 11:00

Delphi的ListView自动排序

private SortCol:Integer; SortWay:Integer; procedureTForm1.LVweColumnClick(Sender:TObject
chinazhd·2012-03-01 23:00
上一页 30 31 32 33 34 35 36 37 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他