TObject

Delphi中使用TXMLDocument控件应注意的问题 转

但是却遇到了非常奇怪的问题，下面分享一下 procedure TMainForm.Button1Click(Sender:TObject); Var   XML:TXMLDocument
·2015-10-31 15:02

delphi 如何关闭 Unsafe typecast of 和 Unsafe type 的waring

nbsp; 有时在Delphi使用指针类型的数据，总是提示如下： [Warning] FGroupFeedBack.pas(796): Unsafe typecast of 'Pointer' to 'TObject
·2015-10-31 15:58

ListBox保存更多数据

AddItem: var rec:PRec; begin new(rec); rec.a:=1; rec.b:=’a’; lst.Items.AddObject(‘It’s Demo’, TObject
·2015-10-31 14:52

回顾BMP转JPG

uses jpeg procedure TForm1.Button1Click(Sender: TObject);var   myjpeg:tjpegImage;  
·2015-10-31 12:21

cxgrid在内置右键菜单的后面增加菜单项

上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject
·2015-10-31 12:10

POS打印机一些特殊控制

procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin {设置打印机}Assignfile
·2015-10-31 12:07

DELPHI XE5 跨平台 Form ShowModal 官方示例

ShowModal as an Anonymous Method on All Platforms procedure THeaderFooterForm.btnPickClick(Sender: TObject
·2015-10-31 12:19

delphi :打开记事本并写入内容

procedure TForm.ButtonClick(Sender: TObject); var hEdit: HWND; str: string; begin str := '
·2015-10-31 11:18

注册系统级热键

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 11:17

dbgrid显示access备注信息

procedure TfrmAllFind.DBGrid6DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer
·2015-10-31 11:13

常用字符串处理函数 Delphi

TStrings类的继承关系为：TObject-TPersistent常用的字符串处理函数函数名         
·2015-10-31 11:19

判断浮点数是否相等

在delphi中： uses Math; procedure TForm1.FormCreate(Sender : TObject); var 　　a : Double; 　　b : Double
·2015-10-31 11:03

VCL主要框架

TObject ->TPersistent  Classes,抽象类 ->TComponent  Classes,抽象类 ->TControl  Controls
·2015-10-31 11:02

Delphi Excel导入 的通用程序 .

.分类： delphi 2012-09-24 18:19 127人阅读 评论(0) 收藏 举报 exceldelphiintegerprocedure TForm1.btnClick(Sender: TObject
·2015-10-31 11:28

解决Delphi 中Timage控件加载大图(bmp)方法

动态加载jpg图片 procedure TForm1.Button1Click(Sender: TObject);varjpg:TJPEGImage;// 要use Jpeg单元beginjpg:=TJPEGImage.Create
·2015-10-31 11:11

我学Delphi心得与笔记-------在控件上如何禁用Ctrl+V

想了一个办法，禁用了Ctrl+V组合按键,代码如下: //在KeyDown事件中写如下代码 procedure TFrmPictureBrowse.lstPictureKeyDown(Sender: TObject
·2015-10-31 11:10

写入文件

procedure TForm1.Button1Click(Sender: TObject); var   F:TextFile;    
·2015-10-31 11:04

播放Wav声音

/把a.wav文件放到c盘目录下 #include "mmsystem.h"   void __fastcall TForm1::Button1Click(TObject
·2015-10-31 11:04

拖动控件

procedure TForm1.btn1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y:
·2015-10-31 11:07

热血传奇中找到关键CALL

procedure TForm1.Timer1Timer(Sender: TObject); var   WHandle:hwnd;   hPID:hwnd;  
·2015-10-31 11:38

阴影&投影效果

//阴影效果procedure TForm25.Button1Click(Sender: TObject);var  x,y:integer;  i:integer;begin 
·2015-10-31 11:09

图像移动

procedure TForm2.Button1Click(Sender: TObject);begin  if(OpenDialog1.Execute)then  begin 
·2015-10-31 11:09

定时器实现图像闪烁

procedure TForm1.Timer1Timer(Sender: TObject);begin  if Image1.Visible=true then   
·2015-10-31 11:09

图像的拉伸

通过改变Timage组件的width 和height实现图像的拉伸，实际上是将未显示出来的部分显示出来 procedure TForm22.Timer1Timer(Sender: TObject);begin
·2015-10-31 11:09

颜色渐变

procedure TForm24.Button1Click(Sender: TObject);var  i,j,ColorR,ColorG,ColorB:integer;  ColorArea
·2015-10-31 11:09

检测pc是否装有声卡

Boolean;begin  Result:=WaveOutGetNumDevs()>0; end; procedure TForm27.Button1Click(Sender: TObject
·2015-10-31 11:09

JPG转换成BMP不成功？？？

procedure TForm14.Button2Click(Sender: TObject);var  i:TBitmap;  j:TjpegImage;begin  
·2015-10-31 11:08

图像的飘动效果

procedure TForm15.FormActivate(Sender: TObject);var  X:Real;  Z:integer;  A:integer; 
·2015-10-31 11:08

动态创建 listbox释放问题

procedure TForm5.FormCreate(Sender: TObject);begin//**********  ListBox1:=TListBox.Create(self);
·2015-10-31 11:07

桌面滚动文字

procedure TForm10.FormCreate(Sender: TObject);beginBrush.Style:=bsclear;Fx:=0;end; procedure TForm10
·2015-10-31 11:07

弹出菜单创建

procedure TForm1.Button1Click(Sender: TObject);varMainMenu:TMainMenu;MenuItem:TMenuItem;begin//创建主菜单对象
·2015-10-31 11:06

TStack and TQueue

注意:同样引用 Contnrs ------------------------- procedure TForm1.Button1Click(Sender: TObject);var a:TStack
·2015-10-31 11:06

生成GUID

uses ComObj, ActiveX; procedure TForm1.Button1Click(Sender: TObject); var Guid: TGUID; str: string; begin
·2015-10-31 11:06

FASTSCRIPT脚本实现多国语言

主程序装载脚本 procedure TForm1.FormCreate(Sender: TObject); begin   fsScript1.Clear;   fsScript1
·2015-10-31 11:05

多标签窗体的释放一法

将释放写在子窗体的FORMCLOSE()里面 procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction);begin
·2015-10-31 11:05

delphi 无标题窗体的拖动

private ｛Private declarations｝ OldX,OldY:integer; //定义变量 procedure TForm1.FormMouseDown(Sender:TObject
·2015-10-31 10:15

在DBGrid里加入CheckBox可视化组件

.5d6d.com/thread-302-1-2.html 注意要USES DB 单元 主要代码： procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject
·2015-10-31 10:12

Delphi 得到文件创建时间、修改时间、访问时间

procedure TForm1.Button1Click(Sender: TObject); var   FileOp : TOFStruct ;   FHandle : THandle
·2015-10-31 10:12

Delphi获取计算机名

代码实现如下 procedure TMainForm.tmrMonitorTimer(Sender: TObject); var ComputerName:array[0..MAX_COMPUTERNAME_LENGTH
·2015-10-31 10:16

点击TWebBrowser中的超级链接不在新的IE窗口打开

如果是用新窗体打开，而不是用IE打开，简单一点：（From MSDN） procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp
·2015-10-31 10:15

获取打开的记事本中的内容 - 回复 "ymg1103" 的问题

www.cnblogs.com/del/archive/2008/11/15/1334237.html#1784570 procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:13

检索用到汇编代码的单元

uses IOUtils, Types, StrUtils; procedure TForm1.Button1Click(Sender: TObject); var PathArr
·2015-10-31 10:12

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

//先在窗体添加 ClientDataSet1 和两个 Button { 初始化测试数据 } procedure TForm1.FormCreate(Sender: TObject);
·2015-10-31 10:12

RegularExpressions(3) RegularExpressions 的工作思路

测试代码: uses RegularExpressions; procedure TForm1.FormCreate(Sender: TObject); var Regex: IRegex
·2015-10-31 10:11

如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题

www.cnblogs.com/del/archive/2009/01/09/1373051.html#1743248 procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:11

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

2010 下 IOUtils 单元的 TDirectory.Copy 函数: uses IOUtils; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:11

创建大窗口

procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Handle, GWL_STYLE
·2015-10-31 10:10

ExtCtrls.Frame3D

uses ExtCtrls; procedure TForm1.FormPaint(Sender: TObject); var R1, R2: TRect; begin R1
·2015-10-31 10:10

Delphi 的编码与解码(或叫加密与解密)函数

DecodeBase64 uses EncdDecd; const str = '万一的 Delphi 博客'; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:09

{$POINTERMATH ON} 方便指针操作的编译指令

//测试整数指针 procedure TForm1.Button1Click(Sender: TObject); var p: PInteger; i: Integer; begin
·2015-10-31 10:09
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他