E-COM-NET
首页
在线工具
Layui镜像站
SUI文档
联系我们
推荐频道
Java
PHP
C++
C
C#
Python
Ruby
go语言
Scala
Servlet
Vue
MySQL
NoSQL
Redis
CSS
Oracle
SQL Server
DB2
HBase
Http
HTML5
Spring
Ajax
Jquery
JavaScript
Json
XML
NodeJs
mybatis
Hibernate
算法
设计模式
shell
数据结构
大数据
JS
消息中间件
正则表达式
Tomcat
SQL
Nginx
Shiro
Maven
Linux
FormCreate
IP Editor IP控件(对比一下封装IP控件)
HWNDhIpEdit; void__fastcallTForm2::
FormCreate
(TObject*Sender) { hIpEdit=CreateWindow(WC_IPADDRESS
findumars
·
2016-03-21 22:00
[Delphi]过程Procedure动态调用
procedureHelloWorld2(a:String); begin ShowMessage('HI'); end; procedureTFormSplash.
FormCreate
蓝懒虫
·
2016-02-02 15:00
[Delphi]过程Procedure动态调用
procedureHelloWorld2(a:String); begin ShowMessage('HI'); end; procedureTFormSplash.
FormCreate
蓝懒虫
·
2016-02-02 15:00
简单的 "双缓冲" 绘图的例子
www.cnblogs.com/del/archive/2010/04/19/1715779.html所谓双缓冲就是先画到内存画布(如:TBitmap),然后再转帖到目的地.譬如下面小程序: procedureTForm1.
FormCreate
tc310
·
2016-01-30 09:00
Firemonkey TComboBox 下拉菜单字型修改方法 (D10)
在FMX下的TComboBox下拉菜单字型修改有二种方法:使用Style,需先设定好Style后,再指定预设项的Style,方法如下:procedureTForm1.
FormCreate
(Sender:
龟山Aone
·
2016-01-07 05:00
[delphi]ComboBox实现显示文本与值不同的方法
1.通过两个ComboBox组件来实现 演示图: procedure TForm1.
FormCreate
(Sender: TObj
·
2015-11-13 16:19
combobox
TWebBrowser静音
FormCreate
(Sender: TObject); var hDSound: Cardinal ;
·
2015-11-13 07:02
WebBrowser
BYTE 转字符串
procedure TForm3.
FormCreate
(Sender: TObject); begin Self.Paint; end; function ByteToHex(Src:
·
2015-11-11 18:13
byte
DELPHI方面输入EDIT
procedure TForm1.
FormCreate
(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount
·
2015-11-11 18:12
Delphi
AnsiString类型定义的时候可以直接指定代码页,比如950繁体字,936日文
procedure TForm3.
FormCreate
(Sender: TObject); type AnsiStringForPage = type AnsiString(950);//代码页
·
2015-11-11 07:44
String类
delphi INI 文件
可以参考以下代码段 procedure TForm1.
FormCreate
(Sender: TObject); begin // 使用TIniFile类的Create成员函数建立TIniFile对
·
2015-11-11 00:26
Delphi
C++ Builder支持文件拖放
首先在
FormCreate
时调用DragAcceptFiles(this,true)注册你的程序,使得你的程序可以接受文件的DragDrop。
·
2015-11-10 22:25
builder
BCB获取应用程序图标并显示
void __fastcall TForm1::
FormCreate
(TObject *Sender){ SHFILEINFO
·
2015-11-10 22:05
应用程序
Delphi初始化与结束化
Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-08 15:50
Delphi
在多次改变 RichEdit.Text部份文本的颜色后,出现所有字体都变色的的解决办法
Procedure TForm1.
FormCreate
(Sender: TObject); Begin RichEdit1.Text :=
·
2015-11-08 15:07
text
FormCreate
& FormActivate & FormShow执行顺序演示
procedure TForm1.
FormCreate
(Sender: TObject);begin form1.Caption:=form1.Caption +'+Create'; end
·
2015-11-08 13:33
create
使用GIF(仅限Delphi2007)
----------- uses GIFImg; procedure TForm1.
FormCreate
(Sender: TObject); begin // 先在窗体上放一个 TImage
·
2015-11-07 15:14
Delphi
delphi 理解ParamStr
delphi 理解ParamStr 演示代码如下 ::code procedure TForm1.
FormCreate
(Sender: TObject); var i: Integer
·
2015-11-07 11:35
Delphi
FireDAC内存表
procedure TForm1.
FormCreate
(Sender: TObject); Var i:integer; begin // i:=15; self.FDMemTable1
·
2015-11-07 10:49
内存
我学Delphi心得及笔记----第一个程序 Hello World ! (第十讲)
代码如下: procedure TForm1.
FormCreate
(Sender: TObject);begin ShowMessage('Hello World
·
2015-11-03 22:32
world
hello
使用TClientDataSet做虚拟表
procedure TForm1.
FormCreate
(Sender: TObject); begin ds2.FieldDefs.Clear; ds2.FieldDefs.Add
·
2015-11-03 21:24
client
二进制字符串与十进制的转换
此函数没有查到,好象Delphi未提供,本算法根据其转换方法而写: 代码 procedure TForm1.
FormCreate
(Sender: TObject);
·
2015-11-03 21:13
字符串
让程序主窗口不显示在任务栏中
// 这样一句就能搞定了 在Form创建是调用 procedure TfrmWaitWindow.
FormCreate
(Sender: TObject); begin SetWindowLong
·
2015-11-02 18:12
程序
正则表达式解析器
于是将其剥离出来,以便可以移植到其它 控件上,两个单元cxMaskEdit和cxRegExpr(代码贴在下面) ,这里给出简单 的调用方法 : 1、 procedure TForm1.
FormCreate
·
2015-11-02 17:06
正则表达式
使用mask来制作图像透明
背景图 带mask的图像 效果图 type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 14:27
使用
看看 Delphi XE2 为 VCL 提供的 14 种样式
在空白窗体上添加 ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.
FormCreate
·
2015-11-02 12:37
Delphi
TClientDataSet[26]: 字段值的呈现格式
procedure TForm1.
FormCreate
(Sender: TObject); begin { DisplayFormat } with TIntegerField.Create
·
2015-11-02 12:32
client
TClientDataSet[24]: 主从表(Master/Detail)
//ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2; 然后: procedure TForm1.
FormCreate
·
2015-11-02 12:31
client
TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
运行时: //先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后: procedure TForm1.
FormCreate
·
2015-11-02 12:29
abstract
TClientDataSet[19]: 查找字段(fkLookup)
//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现: procedure TForm1.
FormCreate
·
2015-11-02 12:28
client
TClientDataSet[18]: OptionalParam
uses XMLDoc; procedure TForm1.
FormCreate
(Sender: TObject); begin with ClientDataSet1 do
·
2015-11-02 12:27
client
TClientDataSet[10]: 简单统计
//先在窗体上放置 ClientDataSet1、Button1 然后: { 建表 } procedure TForm1.
FormCreate
(Sender: TObject); begin
·
2015-11-02 12:24
client
WinAPI: PtInRegion、OffsetRgn
Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:06
set
WinAPI: GetKeyNameText - 根据键盘消息获取按键名称
Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:49
text
给系统菜单添加菜单项
Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:39
系统
WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器
//举例: procedure TForm1.
FormCreate
(Sender: TObject); var Drives: DWord; i
·
2015-11-02 12:38
api
窗体图片背景
var Bitmap: TBitmap; procedure TForm1.
FormCreate
(Sender: TObject); begin Bitmap := TBitmap.Create
·
2015-11-02 12:31
图片
TMainMenu 类[三] - 手动建立菜单(4) : 添加分割线与隐藏多余的分割线
Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:06
main
TMainMenu 类[三] - 手动建立菜单(5) : 给菜单项添加事件
Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:06
main
TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键
Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:05
main
TMainMenu 类[三] - 手动建立菜单(1)
Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:04
main
TMainMenu 类[三] - 手动建立菜单(2) : 建立子菜单项
Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) procedure
FormCreate
·
2015-11-02 12:04
main
Webbrowser中模拟连接点击(非鼠标模拟)
uses mshtml, ActiveX; //初始加载网易主页 procedure TForm1.
FormCreate
(Sender: TObject); begin Webbrowser1
·
2015-11-02 09:01
WebBrowser
主程序装载脚本
主程序装载脚本 procedure TForm1.
FormCreate
(Sender: TObject); begin fsScript1.Clear; fsScript1.Parent
·
2015-11-01 12:15
脚本
label WordWrap
procedure TForm1.
FormCreate
(Sender: TObject); begin Label1.AutoSize := False; &
·
2015-11-01 10:31
label
时间转换
procedure TForm1.
FormCreate
(Sender: TObject); begin edtHour.Clear
·
2015-11-01 10:29
转换
判断字符串中是否出现了以下字符串(汉字)
;begin if Pos('铁', Edit1.Text) <>0 then form1.Caption:='发现目标';end;procedure TForm1.
FormCreate
·
2015-11-01 10:09
字符串
Copy字符截取
begin Edit2.Text :=Copy(Edit1.Text, 9,Pos( '\r^f',Edit1.Text) - 9); end; procedure TForm1.
FormCreate
·
2015-11-01 10:58
copy
ERPCore实现原理(二)
程序初始化后,就创建主窗体 procedure TMain.
FormCreate
(Sender: TObject); begin TObjFactoryEx.Create([IMainForm
·
2015-10-31 17:55
core
cxgrid在内置右键菜单的后面增加菜单项
在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.
FormCreate
·
2015-10-31 12:10
grid
上一页
1
2
3
4
5
6
下一页
按字母分类:
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
其他