TObject

让delphi程序不受WINDOWS日期格式的影响

WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject
·2015-10-21 13:06

C++ BUILDER AnsiString 用法

最近编程用到AnsiString，从网上搜得此文章，向文章作者表示感谢  //Ansistring 转 char void __fastcall TForm1::Button1Click(TObject
·2015-10-21 12:27

FastReport集粹(二)

//存储剪贴板内容到文件中procedure TfrDesignerForm.ClipSaveFileClick(Sender: TObject);var  fs, ms: TStream;&
·2015-10-21 12:01

让delphi程序不受WINDOWS日期格式的影响

WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject
·2015-10-21 12:50

move

procedure TForm1.Button1Click(Sender: TObject);var s, b: AnsiString; a: array[0..9] of Byte;begin s :
·2015-10-21 12:45

MakeObjectInstance的简单理解

也不可能把窗口函数的内容拆散了放在不同的TObject
·2015-10-21 12:38

64位只有一种调用约定stdcall

procedure TForm2.Button1Click(Sender: TObject); function EnumWindowsProc(Ahwnd: hwnd; AlParam: lParam
·2015-10-21 12:37

MainWndProc运行观察

Message: TMessage);begin WindowProc(Message);end; 写个小程序观察汇编：procedure TForm1.Button5Click(Sender: TObject
·2015-10-21 12:37

使用SetTimer函数为Delphi的Win控件设置时钟

procedure Timertodo(var messag:Tmessage);message WM_TIMER; procedure TForm1.FormCreate(Sender: TObject
·2015-10-21 12:27

TLabel和TEdit的初次显示过程

procedure TForm1.Button2Click(Sender: TObject); var l: TLabel;begin l:=TLabel.Create(self); l.Name:=
·2015-10-21 12:17

Delphi的goto语法

记个笔记： procedure TForm1.btn3Click(Sender: TObject); var I, J: Integer; label label1; begin
·2015-10-21 12:00

Delphi指向函数指针的指针

procedure MyFunc; begin ShowMessage('Run my func'); end; procedure TForm1.Button1Click(Sender: TObject
·2015-10-21 12:59

Delphi XE2 之 FireMonkey 入门(22) - 数据绑定: BindingSource、BindingName、FindBinding()、Binding[]

在窗体上添加 TrackBar1、Edit1、Label1, 然后设置属性(可在设计时): procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-21 12:24

Delphi XE2 之 FireMonkey 入门(24) - 数据绑定: TBindingsList: TBindExpression.Direction

procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-21 12:24

Delphi XE2 之 FireMonkey 入门(21) - 和 FMX 相关的类(表)

TObject TPersistent TComponent IInterface, IInterfaceComponentReference TBasicAction TControlActionLink
·2015-10-21 12:23

Delphi XE2 之 FireMonkey 入门(15) - 滤镜: 获取滤镜信息

滤镜类的继承关系: TObject -> TPersistent -> TFilter -> TShaderFilter -> { 具体的滤镜类 } //下面例子首先会用到
·2015-10-21 12:20

Delphi XE2 之 FireMonkey 入门(11) - 控件居中、旋转、透明

procedure TForm1.FormCreate(Sender: TObject); begin Rectangle1.Width := 1
·2015-10-21 12:17

Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition

//FM 控件的位置控制不再是 Left、Top, 取而代之的是 Position 属性 procedure TForm1.Button1Click(Sender: TObject); begin
·2015-10-21 12:14

将图片转存为其它颜色格式(GDI+)

uses GdiPlus; procedure TForm1.Button1Click(Sender: TObject); var img: IGPImage; bit: IGPBitmap
·2015-10-21 12:13

简单获取钢琴 88 个键的音高频率值

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; f: Double; begin f :=
·2015-10-21 12:11

一个关于 absolute 关键字的小练习

procedure TForm1.FormCreate(Sender: TObject); var num: Int64; pt: TPoint absolute num; arr:
·2015-10-21 12:09

转换 Byte 数组到 ... - 回复 "高群" 的问题

/2009/03/21/1410030.html#1483614 {转换 TBytes 到 Integer} procedure TForm1.Button1Click(Sender: TObject
·2015-10-21 12:09

delphi三元运算示例

StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例: uses StrUtils, Math; procedure TForm1.Button1Click(Sender: TObject
·2015-10-21 12:19

Delphi 如何实现在DbgridEh中不同的行显示不同的颜色

人气：1580 查看:[大字体 中字体 小字体]  【实现 DBGridEh 隔行分色显示】procedure TForm1.DBGridEh1GetCellParams(Sender: TObject
·2015-10-21 11:20

2个多边形，其中一个包围另一个，如何将中间的环带区域涂成红色

procedure   TForm1.Button1Click(Sender:   TObject);         begin  
·2015-10-21 11:03

Delphi Canvas填充区域图形

procedure TForm1.FormCreate(Sender: TObject);begin  pb := TPaintBox.Create(Self); pb.Parent := Self
·2015-10-21 11:57

Delphi 怎样才能清空PaintBox里的图形

刷新一下 PaintBox1.Refresh; procedure TForm1.Button2Click(Sender: TObject); begin PaintBox1.Canvas.MoveTo
·2015-10-21 11:57

Delphi TObject消息的分发DisPatch和接受DefaultHandler

在TObject类中，有一个Dispatch()方法和一个DefaultHandler()方法，它们都是与消息 分发机制相关的。 Dispatch()负责将特定的消息分发给合适的消息处理函数。
·2015-10-21 11:52

两个treeview之间的拖拽

procedure   TForm1.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton
·2015-10-21 11:00

delphi中combobox键值对

默认分类 |  标签： |字号大中小 订阅 1.添加键值对：     cbb1.Items.AddObject(‘显示的文字‘, TObject
·2015-10-21 11:00

字符串相互转字符数组 string byte 数组 array of byte

procedure TForm1.Button1Click(Sender: TObject); const s = 'abcd1234'; var arr: array of Byte; i: integer
·2015-10-21 11:48

怎样使点击DBNavigator的Delete按钮时显示中文对话框

事件中写如下代码         procedure   TForm1.DBNavigator1BeforeAction(Sender:   TObject
·2015-10-21 10:13

Delphi DbGrid上色问题

假如你数据库里面的列名分别是(序号,名字,年龄),你要将年龄为23的格填充背景色为黑色,字体颜色改为白色,代码如下: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject
·2015-10-21 10:00

LinkLabel

procedure TForm1.FormCreate(Sender: TObject); begin   LinkLabel1.Caption := '<a href="
·2015-10-21 10:59

tabset+nodebook多面页应用

//关联tabset+nodebook procedure TForm1.FormCreate(Sender: TObject); begin   ts1.Tabs := nb1.Pages
·2015-10-21 10:59

一次删除多条记录

procedure TForm1.Button1Click(Sender: TObject); var   tempBookMark: TBookMark; begin   if
·2015-10-21 10:57

实时的透明窗体

procedure TForm1.TrackBar1Change(Sender: TObject); begin   self.AlphaBlendValue:=self.TrackBar1.
·2015-10-21 10:55

读写ini文件实例

procedure TForm1.FormCreate(Sender: TObject); var   IniFile: TIniFile; begin   IniFile:=TIniFile.Create
·2015-10-21 10:49

WWW浏览器

procedure TForm1.Button1Click(Sender: TObject); begin //打开网页   WebBrowser1.Navigate(Edit1.Text)
·2015-10-21 10:41

改变菜单字体

  procedure TForm1.FormCreate(Sender: TObject); begin      //在LISTBOX
·2015-10-21 10:40

Delphi ChatRoom_Example

聊天用户发言分色显示 procedure TForm1.Button3Click(Sender: TObject); begin RichEdit1.SelStart := MaxInt; RichEdit1
·2015-10-21 10:38

ListBox弹出菜单自动选中

加PopupMenu1 Listbox1的PopupMenu属性设为PopupMenu1 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button
·2015-10-21 10:37

Delphi鼠标左键点击Button弹出快捷菜单Popupmenu

procedure TForm1.SpeedButton4Click(Sender: TObject); begin PopupMenu2.Popup(Mouse.CursorPos.X-30,Mouse.CursorPos.Y
·2015-10-21 10:34

Delphi屏幕绘图

以下代码以光标所在位置为中心,在全屏幕上绘制一个十字架: procedure TForm1.Button1Click(Sender: TObject); var    &
·2015-10-21 10:33

DELPHI图形编辑技巧二则

2.Button1按钮的代码如下： 　　procedure TForm1.Button1Click(Sender: TObject)； 　　var
·2015-10-21 10:27

Delphi实现DBGrid列宽度自动调整

首先，在TForm的OnCreate事件中添加下面的代码： 　　Procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　//在Tag属性中设置需要自动调整的列的最小宽度
·2015-10-21 10:23

用最少的代码为你的窗体实现剪贴板操作

procedure TForm1.Cut1Click(Sender: TObject);    begin   SendMessage
·2015-10-21 10:13

直接写入HTML字符串到WebBrowser控件中

nbsp;ActiveX,ComObj;  2   3  procedure TForm1.Button1Click(Sender: TObject
·2015-10-21 10:56

Method pointer and regular procedure

; The OnClick is defined as a TNotifyEvent: type TNotifyEvent = procedure(Sender: TObject
·2015-10-21 10:41

Delphi 类引用 Class Reference 元类 MetaClass 用法

类引用的定义形式如下： class of type 例如： type SomeClass = class of TObject; var AnyObj: SomeClass
·2015-10-21 10:51
上一页 19 20 21 22 23 24 25 26 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他