TObject

delphi报警声音 Beep、MessageBeep 和 Windows.Beep

article/details/5554527我的办法，增加一个timer设置间隔100ms，通过timer的使能否，控制报警声音开关procedureTForm1.Timer1Timer(Sender:TObject
Trassion·2013-08-25 00:00

DelPhi Treeview 操作实例 onclick节点 treeview1.Selected.Level

Click获取Node.text批量处理及实现TreeView结点拖拽的实例//这个过程根据你的要求选择图标procedureTForm1.TreeView1GetImageIndex(Sender:TObject
delphi308·2013-08-20 21:00

DELPHI获取网卡MAC地址 转

ulmacaddrleng:pointer):DWord;StdCall;External'Iphlpapi.dll'Name'SendARP';procedureTForm1.Button1Click(Sender:TObject
beyondqd·2013-08-20 17:00

delphi2010:按键 控制键 组合键的判断 响应

在delphi根据TshiftState值来判断用户按下Ctrl,shift,alt等键的方法procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton
鹅倌·2013-08-17 15:12

cxgrid如何遍历单元格

procedureTfrm_operator.cx_qixieKeyDown(Sender:TObject;varKey:Word; Shift:TShiftState);begin if((Chr(Key
鹅倌·2013-08-16 16:24

TScreen研究

http://blog.csdn.net/lailai186/article/details/8141170   procedure TForm1.Button1Click(Sender: TObject
·2013-08-13 20:00

异常机制与屏蔽调试代码

procedure TForm1.Button3Click(Sender: TObject); var Ratio, Numerator, Denominator: integer; begin
·2013-08-13 05:00

如何取得 fontdialog 的字体名称、大小等内容

怎么取得fontdialog的字体名称、大小等内容把这些内容放在字符串里  kaida(2006-11-2110:41:15)  procedureTForm1.Button1Click(Sender:TObject
delphi308·2013-08-12 15:00

Delphi 中 动态创建的Panel无法改变颜色的解决办法

刚开始代码如下： procedure TForm1.Button1Click(Sender: TObject); var Panel: TPanel; begin Panel :=
·2013-08-09 15:00

判断两个键同时按下，这里是两个方向键

4bf712b326cc94a2d8335af0.html使用GetKeyboardState来判断键盘按键状态，判断用户是否同时按下上键和左键procedureTForm1.FormKeyDown(Sender:TObject
delphi308·2013-08-08 21:01

判断两个键同时按下，这里是两个方向键

4bf712b326cc94a2d8335af0.html使用GetKeyboardState来判断键盘按键状态，判断用户是否同时按下上键和左键procedureTForm1.FormKeyDown(Sender:TObject
delphi308·2013-08-08 21:00

delphi控件使用

*举例，界面设计如下左，执行结果如下右：    代码为procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=listbox1.Items.CommaText
delphi308·2013-08-08 21:00

Delphi中获取打印机设备名和端口名

usesprinters;procedureTForm1.Button1Click(Sender:TObject);var  pDevice:pChar;  pDriver:pChar;  pPort   
delphi308·2013-08-07 17:00

Delphi枚举出系统所有的打印机

printersetupdialog1.execute就可以看到打印机设置的信息了Delphi枚举出系统所有的打印机在uses中包含printsprocedureTprintsetform.FormShow(Sender:TObject
delphi308·2013-08-07 15:00

指针的本质

光说理论无用，直接上码：代码一：procedureTForm1.Button1Click(Sender:TObject);var i:THandle;begin i:=self.Handle; T
·2013-08-06 22:00

指针的本质

光说理论无用，直接上码： 代码一： procedure TForm1.Button1Click(Sender: TObject);var  i: THandle;begin&nbs
·2013-08-06 21:00

cxGrid显示行号

定义一个类： TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView;
·2013-08-05 16:00

父类virtual和overload，子类reintroduce; overload;

  如果函数在父类中既是虚拟方法也是重载方法，那么：TBase=class(TObject)function DisappearRoutinel: String; overload; virtual
·2013-08-05 01:00

Delphi中 RzCheckTree从ACCESS中取值

procedureTForm1.FormCreate(Sender:TObject); var I,Y,L:Integer; Bstr,Sustr:string; RootNode,SubNode
hack9527·2013-07-31 16:49

Tinifile的使用

procedureTForm1.Button1Click(Sender:TObject); var myini:Tinifile; begin myini:=Tinifile.Create(extractfilepath
ce_endless·2013-07-31 16:00

delphi中设置系统时间方法

 procedureTMainFrm.Timer1Timer(Sender:TObject);var systemtime:Tsystemtime; dt:TDateTime;begin L_DateTime.Caption
·2013-07-30 18:00

Lazarus解决无法识别中文路径的方法

1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 FileN:string; 4 begin 5 if self.OpenDialog1
·2013-07-27 18:00

Delphi响应Html

procedureTForm1.WebBrowser1BeforeNavigate2(ASender:TObject; constpDisp:IDispatch;varURL,Flags,TargetFrameName
hack9527·2013-07-25 13:24

Delphi响应Html

procedureTForm1.WebBrowser1BeforeNavigate2(ASender:TObject;constpDisp:IDispatch;varURL,Flags,TargetFrameName
hack9527·2013-07-25 13:24

Delphi WebBrowser1.Navigate Post 提交数据

procedureTForm1.Button1Click(Sender:TObject); varpostData:OleVariant;vheader:OleVariant;vflags:OleVariant
winderain·2013-07-19 17:00

delphi新语法之泛型实现的对象池模板

nbsp; uses   Classes, SysUtils, UntThreadTimer;   type   { 这是一个对像池, 可以池化所有 TObject
·2013-07-15 17:00

有关平滑梯度场的一个算法

templatevoidImage::ImageSmooth(Tobject,intl)//将图像平滑，取周围(2*l+1)边长正方形内的点的均值{intcnt,sum,rowCnt;intcolSum
qiueji·2013-07-12 11:40

delphi完美经典--第九、十章

第9章Delphi用户接口设计详述TObject->TPersistent->TComponent->TControl->大部分VCL组件(例外的如Ttimer父类为TComponent)Delphi组件分两大类
caohuicong·2013-07-04 11:00

TScrollBox响应鼠标滚轮问题

本身并不响应鼠标滚轮事件(不知道为什么)，但可以在ScrollBox的鼠标滚动事件中进行控制： procedure TfrmTaskNoteEdit.ScrollBox1MouseWheel(Sender: TObject
·2013-07-02 12:00

如何将 Memo中的文本内容保存到当前目录下的 Word 文档中

//在单元接口部分引用 Comobj;procedureTForm1.Button3Click(Sender:TObject);varWord:Variant;begintry Word:=CreateOLEObject
delphi308·2013-06-29 12:00

delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)

delphi程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下复制代码代码如下:procedureTMainFrm.FormCreate(Sender:TObject);beginwithMainFrmdobegin
·2013-06-28 16:44

delphi 程序全屏显示无标题栏，覆盖整个屏幕

delphi程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下procedureTMainFrm.FormCreate(Sender:TObject);begin withMainFrmdobegin
Trassion·2013-06-27 08:00

delphi 文件的读取

procedureTForm_main.Button5Click(Sender:TObject); var myStream:TFileStream; myFileSize:Integer; myTextFile
earbao·2013-06-25 22:00

没用过的函数 GetHomePath - 获取用户程序数据目录

uses System.IOUtils; procedure TForm1.FormCreate(Sender: TObject); var S: string; begin
·2013-06-16 23:00

Delphi随机数

在uses引用math，它提供了几个取随机数的函数；代码如下：procedureTForm1.Button1Click(Sender:TObject);beginrandomize;//初始化内置的随机数生成器
huagaorang·2013-06-15 16:33

delphi 笔记

,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码：procedureTForm1.FormCreate(Sender：TObject
人淡如菊·2013-06-15 11:00

delphi 关于关闭操作

delphi关闭(close或点叉)操作并不难销毁进程，  所以建议在delphi编程中为每个主form(登录,界面)加close事件  procedureTForm1.FormClose(Sender:TObject
lilin9105·2013-06-10 15:30

delphi 数据库 ado技术

    用数据库记录账号的登陆功能的实现  第一步配置con1控件   第二步配置adoquery1属性    第三步：添加按钮点击事件  procedureTForm2.btn1Click(Sender:TObject
lilin9105·2013-06-10 13:48

通过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取常用路径

Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm)   Memo1:TMemo;   procedureFormCreate(Sender:TObject
飘雪超人·2013-06-06 11:00

通过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取常用路径

Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm)   Memo1:TMemo;   procedureFormCreate(Sender:TObject
whatday·2013-06-06 11:00

delphi 更改DBGrid 颜色技巧

1、根据条件更改某一单元格的颜色procedureTMainFrm.First_DGDrawColumnCell(Sender:TObject; constRect:TRect;DataCol:Integer
beyondqd·2013-06-05 08:00

delphi完美经典--第七、八章

继承delphi内建类的class类②完全自定义的object类1、继承自delphi内建类的class类语法：type类名=class(父类)       类成员end;特点：①此种方法定义的类都是TObject
caohuicong·2013-06-04 15:00

Delphi动态创建MainMenu和PopupMenu菜单的方法

procedureTForm1.Button1Click(Sender:TObject);varMainMenu:TMainMenu;MenuItem:TMenuItem;begin//创建主菜单对象,
delphi308·2013-05-31 13:00

[delphi]ComboBox实现显示文本与值不同的方法

1.通过两个ComboBox组件来实现演示图：procedureTForm1.FormCreate(Sender:TObject); begin cbb1.it
none01·2013-05-23 17:00

Delphi Idhttp的 Get 和 Post 方法

DelphiIdhttp的Get和Post方法 procedureTForm1.FormCreate(Sender:TObject); var Param:TStringList; RStream:TStringStream
liushinhwa·2013-05-09 15:00

Delphi - WebBrowser载入自定义HTML内容并显示

use Winapi.ActiveX;//调用IPersistStreamInit类 procedureTForm1.Button2Click(Sender:TObject); var PostList
liushinhwa·2013-05-09 15:00

ListView动态获取文件图标

uses ShellAPI; procedureTForm1.btn1Click(Sender:TObject);//大图标视图 var LgImg:THandle; sfi:TSHFileInfo;
haiou327·2013-05-04 01:00

Delphi获取其它进程窗口句柄的3种方法

GetWindow来遍历查找，如： handle:=FindWindow(nil,PChar('窗口的标题')); 或者： procedureTForm1.Button1Click(Sender:TObject
GameKing·2013-04-23 22:00

cxgrid导出

uses中添加cxGridExportLinkprocedureTfrm_patient_fee_list.bar_daochuClick(Sender:TObject);var SFD:TSaveDialog
鹅倌·2013-04-16 10:06

delphi key 各键值对应的编码

procedureTFrmMain.edtKeyPressInPut(Sender:TObject; varKey:Char);begin ifnot(Keyin['0'..'9','.',#08])then
Trassion·2013-04-15 10:00
上一页 28 29 30 31 32 33 34 35 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他