TObject

ShowWindow 隐藏 显示任务栏

{隐藏任务栏} procedure TForm1.Button1Click(Sender: TObject); var     wndHandle :
·2015-10-31 09:59

ShowModal 触摸屏系统

//触摸屏系统  procedure TForm1.Label1Click(Sender: TObject); begin   Form1.Visible :=
·2015-10-31 09:59

textout 在标题栏绘制文字_textout

//在标题栏绘制文字  procedure TForm1.Button1Click(Sender: TObject); var dc:hdc;     
·2015-10-31 09:59

【原】DelphiXe 中静态数组TByteArray和动态数组TBytes /array of byte 的区别

在应用中发现静态数组和动态数组是有区别的： procedure TForm1.Button1Click(Sender: TObject);var  RsltStream: TMemoryStream
·2015-10-31 09:42

将 4 个 Byte 合成 1 个 Integer 的五种方法

//方法 1: 共用内存procedure TForm1.Button1Click(Sender: TObject);var  bf: record b1,b2,b3,b4: Byte end
·2015-10-31 09:41

delphi执行查询语句时的进度条怎么做

procedure TForm1.FormCreate(Sender: TObject);  begin     ADOQuery1.ExecuteOptions
·2015-10-31 09:11

delphi7 常用日期函数

参考实例： 　　 procedure T Form1.Button1Click(Sender: TObject); 　　 begin 　　 　Label1.Caption := '今天是：'
·2015-10-31 09:35

Delphi IdHTTP1下载文件防止假死 (

IdAntiFreeze1,IdHTTP1;一个按钮 :Button1;一个进度条 :ProgressBar1 显示下载速度procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:49

jpeg

方法1： procedure TForm1.Button2Click(Sender: TObject);var  JPEGImage: TJPEGImage;beginif SavePictureDialog1
·2015-10-31 09:48

delphi 如何知道 Treeview,Listview 当前最上面显示的节点

Treeview,的节点是根节点       procedure TForm1.TreeView1ContextPopup(Sender: TObject
·2015-10-31 08:38

delphi 在 DragDrop 的时候，滚动 TreeView

DragDrop 的时候，滚动 TreeView 当高度不够的时候     procedure TForm1.TreeView1DragOver(Sender, Source: TObject
·2015-10-31 08:38

delphi 2010 资源文件使用

  //1提取出资源 procedure TForm1.Button1Click(Sender: TObject); begin   with  
·2015-10-31 08:37

delphi Components[i]清除所有edit控件中的内容

combobox9.clear; *)   procedure TForm1.Button1Click(Sender: TObject); var i: integer;
·2015-10-31 08:37

在运行时移动控件

  在运行时移动控件     procedure TForm1.Button1MouseDown(Sender: TObject; Button
·2015-10-31 08:36

ListView返回选中的多项目

ListView返回选中的多项目     procedure TForm1.Button3Click(Sender: TObject); var  
·2015-10-31 08:36

key 限制字符的输入

//限制字符的输入 { 只能输入以下字符 } procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin
·2015-10-31 08:36

返回ListBox选中的多项目

//返回ListBox选中的多项目 procedure TForm1.Button2Click(Sender: TObject); var i:Integer; s: string;
·2015-10-31 08:36

设置Delphi XE4默认界面样式

Appearance 选择几个样式 使用代码设置   uses Vcl.Themes; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 08:36

捕捉整个桌面的图片

捕捉整个桌面的图片 但不捕捉自己这个窗体   procedure TForm2.Button3Click(Sender: TObject); var   
·2015-10-31 08:35

复制图片的一部分

  // 复制图片的一部分  procedure TForm1.Button1Click(Sender: TObject); var   Bitmap
·2015-10-31 08:35

循环喊话模拟

  procedure TForm1.Timer1Timer(Sender: TObject); {$j+} //全局变量 const i:integer=0; //定义常量 i
·2015-10-31 08:34

学绘秀曲线图

procedure TForm1.FormPaint(Sender: TObject); var i,j,num,X,Y: Integer
·2015-10-31 08:09

Delphi 的绘图功能[5] - 获取 Canvas 对象

在窗体上添加 Panel1、PaintBox1 和 Button1, 代码如下: procedure TForm1.Button1Click(Sender: TObject); var
·2015-10-31 08:08

Delphi 的绘图功能[10] - TFONT 类

//先来个例子: procedure TForm1.FormPaint(Sender: TObject); const S = '万一的 Delphi 博客'; var font:
·2015-10-31 08:08

Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线

procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color := clYellow; {指定笔颜色为黄色}
·2015-10-31 08:08

Delphi 的绘图功能[2] - 入门

//举例: {绘制直线} procedure TForm1.Button1Click(Sender: TObject);
·2015-10-31 08:07

c++ builder 简单读、分析网页数据

二话不说，直接上代码了 效果：   void __fastcall TFormMain::btn_1Click(TObject *Sender) { OutPutLog
·2015-10-30 18:34

adoquery查询结果如何赋给一个变量(delphi和c++ builder)

 回复人： sunriver 回复时间：2005-6-3 9:11:00 procedure TForm1.Button1Click(Sender: TObject); var
·2015-10-30 18:31

delphi 切换指定窗口到最前并获得焦点

hWnd:Thandle;fAltTab:boolean);stdcall;external 'User32.dll'; procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:38

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

uses shellAPI; procedure TForm1.Button1Click(Sender: TObject);varSEInfo: TShellExecuteInfo;ExitCode:
·2015-10-30 14:37

如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题

www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234 procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:50

理解 Delphi 的类(十) - 深入方法[9] - 调用时的括号

function MyFun: string; begin Result := 'ok'; end; {调用} procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:34

理解 Delphi 的类(十) - 深入方法[8] - 如果忘了返回值

var x: Integer): string; begin x := x + 1; end; {调用} procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:34

理解 Delphi 的类(十) - 深入方法[10] - 默认参数

string='好人'): string; begin Result := s1 + s2; end; {调用} procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:34

理解 Delphi 的类(十) - 深入方法[3] - 调用时参数分割

Integer): Integer; begin Result := x + y; end; {调用} procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 14:33

理解 Delphi 的类(十) - 深入方法[7] - Result

Result := Char(b); {我们当然可以这样写} Byte(Result) := b; {这样也行} end; {System 中就有这样一个函数} function TObject.ClassType
·2015-10-30 14:33

理解 Delphi 的类(八) - 关于类的定义

//标准语法 TMyClass1 = class(TObject) end; //如果是继承自 TObject 可以省略 TMyClass2 = class
·2015-10-30 14:32

Delphi- ini文件的读写操作

一、读INI文件示例 procedure TForm1.FormCreate(Sender: TObject); Var MyIni :Tinifile; glAppPath :string
·2015-10-30 14:05

输入法切换的问题

procedure TForm1.FormShow(Sender: TObject); var   i:integer; begin   For i:=0 to ComponentCount
·2015-10-30 14:06

delphi 中导出数据到excel小记(不需要装excel但是保存比较麻烦)

procedure Txggl_sjrz_exefrm.FileSaveAsMnuClick(Sender: TObject); var I: Integer;
·2015-10-30 14:05

Delphi对SGridFunction的一些使用

//StringGrid的鼠标移动事件procedure TfrmCKSJHD.sg_JCSJMouseMove(Sender: TObject; Shift: 
·2015-10-30 13:23

Delphi 删除目录（二）

Delphi 删除目录（二）       procedure   TForm1.BitBtn1Click(Sender:   TObject
·2015-10-30 13:58

TThread类详解<转>

类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
·2015-10-30 13:13

随机字符串生成

随机字符串生成 function TfrmPWGenerate.btnGenerateClick(Sender: TObject):  string
·2015-10-30 13:35

Upcase 将edit1中的每个字符串改为首字母大写

//将edit1中的每个字符串改为首字母大写  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin
·2015-10-30 13:34

不在任务栏中显示

procedure TForm1.FormShow(Sender: TObject); begin   ShowWindow(Application.handle
·2015-10-30 13:34

.TextOut文字保存为图片

Canvas.TextOut文字保存为图片  //Delphi开发案例精选，使用TextOut在画布上画图 procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 13:31

SystemParametersinfo代码控制光标

//功能说明：SystemParametersinfo代码控制光标  procedureTForm1.Button1Click(Sender: TObject); var  
·2015-10-30 13:26

TTrackBar 控制Memo1的Left和Width

//TTrackBar控制Memo1的Left和Width  procedure TForm1.TrackBar1Change(Sender: TObject); begin  
·2015-10-30 13:25

TRichEdit_控制TRichEdit组件滚动

//TRichEdit_控制TRichEdit组件滚动 procedure TForm1.BitBtn1Click(Sender: TObject); //滚至末端 没反应 begin
·2015-10-30 13:25
上一页 16 17 18 19 20 21 22 23 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他