TObject 第15页

Image控件播放 GIF文件

uses Vcl.Imaging.GIFImg; procedure TForm1.Button2Click(Sender: TObject); begin

·2015-11-02 11:56

Webbrowser中模拟连接点击（非鼠标模拟）

uses mshtml, ActiveX; //初始加载网易主页 procedure TForm1.FormCreate(Sender: TObject); begin Webbrowser1

·2015-11-02 09:01

GDI+ 库

uses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL}; procedure TForm1.FormPaint(Sender: TObject

·2015-11-02 09:47

delphi absolute 应用实例

procedure TForm1.Button1Click(Sender: TObject); var i1,i2:Integer; b:array [0..3] of Byte absolute

·2015-11-02 09:37

delphi Int64Rec 应用实例

以下代码可以看到 Int64Rec <--> Int64 procedure TForm1.Button2Click(Sender: TObject); var ii1,ii2,ii3:

·2015-11-02 09:36

Delphi实现菜单项上出现提示

private FTimerShow: TTimer; FTimerHide: TTimer; procedure TimerShowTimer(Sender: TObject

·2015-11-02 09:25

RichEdit选中文字右键菜单的实现

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y

·2015-11-02 09:21

Combobox中禁止鼠标中键滚动list列表

//第1种方法 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;

·2015-11-02 09:05

应用程序的关闭退出

所以在主窗体中使用窗体的关闭函数（Close）即可，如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin

·2015-11-02 09:58

在使用TStringlist谨慎使用For循环

在TTabset组件管理大量对象时使用了类似下面的语句 For I:=0 to aTabSet.Tabs.Count-1 dobegin TObject(aTabSet.Tabs.Objects[

·2015-11-01 15:27

单击按钮左键弹起菜单

方法1 procedure TForm2.Button1Click(Sender: TObject); var Pt: TPoint; begin

·2015-11-01 13:07

SetWindowLong 除去窗体标题栏

procedure TForm1.Button1Click(Sender: TObject); begin &

·2015-11-01 13:53

主程序装载脚本

主程序装载脚本 procedure TForm1.FormCreate(Sender: TObject); begin fsScript1.Clear; fsScript1.Parent

·2015-11-01 12:15

DBGrid简单自绘（字体颜色、背景等）

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol

·2015-11-01 10:50

label WordWrap

procedure TForm1.FormCreate(Sender: TObject); begin Label1.AutoSize := False; &

·2015-11-01 10:31

获取windows版本信息

procedure TForm1.Button1Click(Sender: TObject); Var OSVI:OSVERSIONINFO

·2015-11-01 10:30

时间转换

procedure TForm1.FormCreate(Sender: TObject); begin edtHour.Clear

·2015-11-01 10:29

ListView

添加项目 procedure TForm1.Button1Click(Sender: TObject); begin with listview1

·2015-11-01 10:26

判断字符串中是否出现了以下字符串（汉字）

//判断列表框中是否出现了 “铁”字 //Pos(SubStr, Str)procedure TForm1.Button1Click(Sender: TObject);begin

·2015-11-01 10:09

delphi Array 定义数组

Button1Click ( Sender : TObject ); var i : Integer ; begi

·2015-11-01 10:07

delphi PopupMenu

Del1Click ( Sender : TObject ); begin if PopupMenu1 . PopupCom

·2015-11-01 10:07

drag drop drag over

Label1MouseDown ( Sender : TObject ; Button : TMouseButton ; Shift :

·2015-11-01 10:06

Copy字符截取

procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text :=Copy(Edit1

·2015-11-01 10:58

显示人物主要信息

procedure TForm1.Timer1_mainRoleTimer(Sender: TObject); var Gameh:hwnd;

·2015-11-01 10:56

产生随机数

Button1Click ( Sender : TObject ); var result : Integer ; i : Integer

·2015-11-01 10:31

终于, Delphi XE2 携带 GDI+ 库了

uses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL}; procedure TForm1.FormPaint(Sender: TObject

·2015-11-01 08:58

GdiPlus[32]: IGPPen: LineJoin、MiterLimit

LineJoin 测试效果图: LineJoin 测试代码: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject

·2015-11-01 08:40

GdiPlus[30]: IGPPen: 线帽

属性分别用来读写两段的线帽, 测试图: StartCap 和 EndCap 测试代码: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject

·2015-11-01 08:38

GdiPlus[27]: IGPPen: Alignment (画笔对齐)

uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject); var Graphics: IGPGraphics;

·2015-11-01 08:37

GdiPlus[23]: IGPFontFamily

IGPFontFamily 的基本使用: uses GdiPlus, GdiPlusHelpers; procedure TForm1.FormPaint(Sender: TObject

·2015-11-01 08:35

GdiPlus[22]: IGPFont

测试效果图: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject); var Graphics: IGPGraphics

·2015-11-01 08:34

GdiPlus[20]: IGPPathGradientBrush 之 SetFocusScales

测试效果图: 测试代码: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject); var Graphics

·2015-11-01 08:33

GdiPlus[21]: IGPPathGradientBrush 之 InterpolationColors

测试效果图: 测试代码: uses GdiPlus, GdiPlusHelpers; procedure TForm1.FormPaint(Sender: TObject

·2015-11-01 08:33

GdiPlus[15]: IGPLinearGradientBrush 之 GammaCorrection

测试图中的第二个图形使用了灰度校正: 测试代码: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject);

·2015-11-01 08:29

GdiPlus[8]: IGPTextureBrush 之 WrapMode 属性

示例图片: 示例代码: uses GdiPlus; procedure TForm1.FormPaint(Sender: TObject); var Graphics

·2015-11-01 08:23

GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)

//正常显示图片, 没有变换 uses GDIPAPI, GDIPOBJ; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics

·2015-11-01 08:04

字符串分析网页源码

获取网站链接：(此方法获取的链接不是绝对链接，需要自己写个替换) procedure TForm1.Button1Click(Sender: TObject); var doc:IHTMLDocument2

·2015-10-31 19:12

Delphi里一般网址转换的函数！

百度方式： procedure TForm1.Button1Click(Sender: TObject);const dd

·2015-10-31 19:09

关于delphi XE7中的动态数组和并行编程（第一部分）

下面是一个简单的并行编程例子： procedure TFormThreading.Button1Click(Sender: TObject); var t

·2015-10-31 19:02

DELPHI中调用XSD去验证XML的合法性

procedure TFrmPrintReport.Button3Click(Sender: TObject);var SchemaDoc, XmlDoc

·2015-10-31 18:35

【Delphi】注册快捷键

type TForm1 = class(TForm) HotKey1: THotKey; Button1: TButton; procedure Button1Click(Sender: TObject

·2015-10-31 18:39

模拟按下键盘上的键随笔

procedure TForm1.Button1Click(Sender: TObject); //模拟在edit1中按下字幕a键begin PostMessage(Edit1.handle

·2015-10-31 17:48

画Stringgrid斑马线

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

·2015-10-31 17:43

画DBGRID,DBGRIDEH中文帐簿金额栏

procedure TformBuy.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State

·2015-10-31 17:42

Delphi 不用标题栏移动窗体

procedure TxxxxForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;

·2015-10-31 17:22

ERPCore实现原理（二）

程序初始化后，就创建主窗体 procedure TMain.FormCreate(Sender: TObject); begin TObjFactoryEx.Create([IMainForm

·2015-10-31 17:55

Delphi中模拟鼠标操作

procedure TMainFrom.imgResultMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;

·2015-10-31 16:53

delphi动态创建组件的颜色

lb.OnMouseEnter:=mset; lb.OnMouseLeave:=mslv; 下面是完整代码: procedure TForm1.mset(Sender:TObject);

·2015-10-31 16:43

Http协议访问DataSnap Rest 服务器

假如服务器有如下的用户验证： procedure TSC.DSAuthenticationManager1UserAuthenticate(Sender: TObject; const Protocol

·2015-10-31 16:21

DBGridEh改变选中行颜色

dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject

·2015-10-31 15:15

推荐频道

TObject