TObject

Delphi 7 类库继承关系表

TObject TPersistent TComponent TControl TGraphicControl
·2015-10-31 09:13

知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题

2008/09/05/1284923.html#1818187 {查看同一字符串的双字节码和 UniCode 码} procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:13

在 API 函数中使用 PChar 参数的几种方法

//以 GetWindowsDirectory 为例: { 以静态数组做缓冲区 } procedure TForm1.Button1Click(Sender: TObject); var
·2015-10-31 09:13

Api 函数: GetCursorPos 与转换

//获取鼠标在窗体中的当前位置 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState
·2015-10-31 09:11

理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类

{下面就定义了两个抽象方法} TMyClass = class(TObject) procedure Proc1; virtual; abstract; {抽象方法首先应该是一个虚方法或动态方法
·2015-10-31 09:10

理解 Delphi 的类(十一) - 深入类中的方法[6] - 类中的方法重载

//类中的方法重载首先具备前面说过的重载相关的所有特点, 如: TMyClass = class(TObject) function Fun(s: string): string; overload
·2015-10-31 09:10

理解 Delphi 的类(十一) - 深入类中的方法[10] - 构造方法与析构方法

如: TMyClass = class(TObject) public constructor Create; {构造方法} destructor Destroy
·2015-10-31 09:10

理解 Delphi 的类(十一) - 深入类中的方法[4] - 访问限制(或者叫可见性)

//下面说的数据成员不仅仅指方法 TMyClass = class(TObject) function Fun1: string; {公共区域的数据成员在默认状态下会归于 published
·2015-10-31 09:10

理解 Delphi 的类(十二) - 深入属性[1] - 先复习

TMyClass = class(TObject) private FName: string; procedure SetName(const Value: string);
·2015-10-31 09:10

理解 Delphi 的类(十一) - 深入类中的方法[12] - 消息方法

//一个前导示例: {创建一 Win32 工程, 给窗体添加 OnKeyDown 事件} procedure Tbu.FormKeyDown(Sender: TObject; var Key
·2015-10-31 09:10

理解 Delphi 的类(十) - 深入方法[24] - 方法是一个指针

MyFun: string; begin Result := 'ok'; end; {读取它们的指针} procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:09

statusbar简单应用

   procedure   TForm1.FormCreate(Sender:   TObject);     var    
·2015-10-31 09:53

判断字符是否是汉字

  procedure TForm1.Button1Click(Sender: TObject);var s:AnsiString;    i:Integer;
·2015-10-31 09:01

DELPHI中MDI子窗口的关闭和打开

解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：   procedure ChildForm.OnClose(Sender: TObject; var Action:
·2015-10-31 09:42

遍历系统目录下的所有文件

procedure TForm1.RzBitBtn1Click(Sender: TObject);var  searchrec: TSearchrec; //*****************
·2015-10-31 09:41

拖动Form上的图片，Form一起动

procedure TfrmServerInfo.Image1MouseMove(Sender: TObject;   Shift: TShiftState; X, Y: integer);
·2015-10-31 09:41

仿药易通输入单位信息后如果没有则自动加入功能

procedure TfrmCargoInfo.RzComboBox2Exit(Sender: TObject); begin   inherited;   if Pos((RzComboBox1
·2015-10-31 09:41

数字转换为字符串

procedure TMainForm.InputChange(Sender: TObject); var   I: Integer;   S, Number: string;
·2015-10-31 09:41

delphi操作sql数据库的备份和强制还原

procedure TFrmMain.NSystBackupClick(Sender: TObject); var strFile:string; begin   //  数据库备份
·2015-10-31 09:40

文本框只能输入数字

procedure TMainForm.edtListViewIndexKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['
·2015-10-31 09:39

delphi 中Tlistbox中得到选中的值，删除所选中的值，selected老是点不出来，找到了一个。

procedure TForm1.Add1Click(Sender: TObject); var i:Integer; begin for i :=0 to ListBox1.Count-1 do
·2015-10-31 09:45

Delphi中Edit输入控制必需为数字（2位小数）

procedure  TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject;  var  Key: Char
·2015-10-31 09:49

打印九九乘法口决表

procedure TForm3.btn_cfClick(Sender: TObject);var i,j : Integer;begin  Form1.Refresh;  for
·2015-10-31 09:49

用Delphi编程如何判断电脑中运行的QQ号是多少

CommCtrl,ShellAPI; var id: array[0..100] of integer; {$R *.dfm} procedure TFrmTray.FormCreate(Sender: TObject
·2015-10-31 09:50

IdTcpServer 用户掉线检测方法

当登陆用户异常掉线并不会通知服务器，这时服务器一直以为用户在线，解决这种问题有以下两种方法： 一、轮训检测连接情况，需要Timer轮训检测，如下代码：procedure TMainForm.Timer1Timer(Sender: TObject
·2015-10-31 09:44

Delphi-TScreen表示应用程序运行时屏幕的状态

类关系 TObject->TPersistent->TComponent 　　TScreen引进具有表示下列各种情况的属性 　什么窗体和数据模块已经被应用程序实例化。 　
·2015-10-31 09:36

Delphi-Sender对象的定义

Sender是一个TObject类型的参数，它告诉Delphi哪个控件接收这个事件并调用相应的处理过程。
·2015-10-31 09:35

delphi TCXTreelist 通过代码控制行的可编辑性

procedure TfrmSetOutPzTradeDeptPerson.grdTradeClientEditing(Sender: TObject;  AColumn: TcxTreeListColumn
·2015-10-31 09:25

LoadFromFile 和 SavetoFile

procedure TForm1.Button1Click(Sender: TObject); begin     {直接加载当前目录下的文件,文件必须得存在，否则出错
·2015-10-31 09:03

listbox dragDrop DragOver

//listbox dragDrop DragOver  procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer
·2015-10-31 09:03

Delphi 调用批处理

    uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var filename, Path
·2015-10-31 09:03

MapWindowPoints限制鼠标的位置

MapWindowPoints限制鼠标的位置  var   pos: TRect; {公共声明} procedureTForm1.Button1Click(Sender: TObject
·2015-10-31 09:02

ManualDock 窗口融合技术

form2panel button1button2设置panel的DockSite:=true;} //代码没用 procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:02

Modified判断Tedit TMemo类型的文件是否修改过

//Modified判断Tedit TMemo类型的文件是否修改过  procedureTForm1.Button1Click(Sender: TObject); begin  
·2015-10-31 09:02

SetLength 过程设定字符串的最大长度值

//SetLength为了有效地分配所需的存储空间，你可以用SetLength 过程设定字符串的最大长度值：  procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:01

SelectDirectory在Delphi中定位文件夹位置

//SelectDirectory在Delphi中定位文件夹位置  procedureTForm1.Button1Click(Sender: TObject); //直接定位文件' 打开一个文件
·2015-10-31 09:01

Registry 获得操作系统的序列号

//获得操作系统的序列号  uses Registry; procedure TForm1.Button1Click(Sender: TObject); //Windows XP有效
·2015-10-31 09:01

RichEdit1

Color {设置颜色后开始选中的部分仍然是选中的} //richedit1.SelAttributes.Color procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:01

reg怎样存取注册表信息

  My_key:Tregistry; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:01

Screen获取桌面分辨率大小

nbsp; {Screen.Width 宽Screen.Height 高这样可以根据显示器的分辨率信息设置窗体大小及位置} procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:01

reapeat until计算1累加到100的和

//reapeat until计算1累加到100的和 procedure TForm1.Button1Click(Sender: TObject);  var   
·2015-10-31 09:01

PostMessage模拟按键

功能说明：PostMessage模拟按键  procedureTForm1.Button1Click(Sender: TObject); //模拟在Edit控件中按下a键 begin
·2015-10-31 09:01

SetWindowRgn文字窗体

功能说明：SetWindowRgn文字窗体  procedureTForm1.FormCreate(Sender: TObject); var     
·2015-10-31 09:00

ShellAPI 调用搜索引擎

//调用搜索引擎  uses ShellAPI; //google web search procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 09:00

ShellExecuteEx 获取文件属性

功能说明：获取文件属性  uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var   
·2015-10-31 09:00

SetWindowLong在按钮中显示两行文字

//SetWindowLong在按钮中显示两行文字  procedure TForm1.FormCreate(Sender: TObject); begin   SetWindowLong
·2015-10-31 09:00

SetWindowLong隐藏状态栏的图标

SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClass   procedure TForm1.FormCreate(Sender: TObject
·2015-10-31 09:00

setlength取得字符串长度 设置字符长度

功能说明： //setlength取得字符串长度 设置字符长度 //取得字符串长度length(); procedureTForm1.btn1Click(Sender: TObject); var
·2015-10-31 09:00

ShowWindow 显示隐藏窗体

/SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClass   procedure TForm1.FormShow(Sender: TObject
·2015-10-31 09:59

delphi StatusBar在状态栏中显示checkBox

//StatusBar在状态栏中显示checkBox  procedure TForm1.CheckBox1Click(Sender: TObject); begin  
·2015-10-31 09:59
上一页 15 16 17 18 19 20 21 22 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他