formcreate

TVirtualStringTree的Minimal例子学习

PMyRec = ^TMyRec; TMyRec = record Caption: WideString; end;预步骤第二步，规定取得节点数据时候的大小procedure TMainForm.FormCreate
·2014-01-27 01:00

禁止截屏PrintScreen

procedureTForm1.FormCreate(Sender:TObject);begin RegisterHotKey(Handle,IDHOT_SNAPDESKTOP,0,VK_SNAPSHOT
u013805103·2013-10-11 10:00

DELPHI下让HGE初始化在某个窗口内范例！

procedureTMainForm.FormCreate(Sender:TObject);begin HGE:=HGECreate(HGE_VERSION); HGE.System_SetState(
YiLuSuiYun·2013-09-30 20:00

c++builder隐藏程序任务栏图标 .

1.void__fastcallTfrmLogHook::FormCreate(TObject*Sender){DWORDdwExStyle=GetWindowLong(Application->Handle
anyqu·2013-09-19 13:00

Delphi中 RzCheckTree从ACCESS中取值

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

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

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

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

delphi 笔记

这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码：procedureTForm1.FormCreate
人淡如菊·2013-06-15 11: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 透明

procedureTForm1.FormCreate(Sender:TObject); var rgn:HRGN; begin Self.Color:=clRed; BeginPath(Canvas.Handle
chinazhd·2013-03-27 20:00

DELPHI 让程序只能运行一次

在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码： procedure 主FORM.FormCreate(Sender: TObject); var errno:integer
paulfzm·2013-03-20 16:00

delphi 播放gif 动画

uses GIFImg; 2 procedure TForm1.FormCreate(Sender: TObject); 3 begin
paulfzm·2013-03-20 00:00

delphi TStringGrid add CheckBox

代码如下:procedureTForm1.FormCreate(Sender:TObject);vari,j:integer;begin//行数和列数StringGrid1.ColCount:=10;StringGrid1
pipi0714·2012-11-01 10:00

在Delphi中使用串口控件MSComm的0字符接收例程祥解

InputMode:=comInputModeBinary;//和MSComm1.InputMode:=comInputModeText;//实验结果基本对Delghi不太起作用procedureTForm1.FormCreate
Plutus_Lee·2012-10-23 10:00

Delphi 获取网站验证码的图片

uses ActiveX,ComObj; procedureTfrmMain.FormCreate(Sender:TObject); begin OleInitialize(nil); end; procedureTfrmMain.DomImg2Image
yanjiaye520·2012-09-07 16:00

TCppWebBrowser显示的网页内容不能拷贝到剪贴板

在FormCreate加OleInitialize(NULL);及FormDestroy加OleUninitialize();
qq752923276·2012-04-19 16:00

BYTE 转字符串

  BYTE转字符串来源：http://blog.csdn.net/pgnet/article/details/4640371procedureTForm3.FormCreate(Sender:TObject
chelen_jak·2012-03-01 13:00

DelphiXE 显示GIF动画

usesGIFImg;procedureTForm1.FormCreate(Sender:TObject);begin //先在窗体上放一个TImage组件：Image1； Image1.Picture.LoadFromFile
shuaihj·2012-02-14 15:00

Delphi access violation

源程序：procedureTForm1.FormCreate(Sender:TObject);begin  form2.Show;end; 原因：一般情况下不能在主窗体创建的时候show另一个窗体，因为这个窗体还没有被创建
wangweixaut061·2011-11-17 15:00

Delphi中使用私有字体

procedure TForm1.FormCreate(Sender: TObject);begin  AddFontResource(PChar(ExtractFilePath(ParamStr(0)
wbryfl·2011-10-25 17:00

从屏蔽QQ登录输入框温习几个c++函数

从屏蔽QQ登录输入框温习几个c++函数 先看c++builder的代码： void__fastcallTForm1::FormCreate(TObject*Sender) { HWNDhCurWindow
yeahhook·2011-10-25 11:00

Registry

uses Registry; procedureTForm1.FormCreate(Sender:TObject); var Reg:TRegistry; begin reg:=Tregistry.Create
haiou327·2011-10-18 23:00

Delphi XE2 之 FireMonkey 入门(34) - 控件基础: TFmxObject: 克隆对象

procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin fo
·2011-10-05 19:00

Delphi 菜单的应用（系统菜单添加一项、主菜单增加历史记录、弹出菜单的动态合并、菜单中画图、显示状态）

一、往系统菜单中添加菜单项//1、在FormCreate中往系统菜单中添加自己的菜单procedureTForm1.FormCreate(Sender:TObject);var i:integer;begin
xiongmao000738·2011-09-26 09:00

Delphi 根据图片或者文字制作特殊的窗体

 一、根据图片制作特殊的窗体1、在FormCreate中计算窗体的不规则区域procedureTForm1.FormCreate(Sender:TObject);var ThreadRgn,TmpRgn
xiongmao000738·2011-09-23 12:00

c++builder隐藏程序任务栏图标

1.void__fastcallTfrmLogHook::FormCreate(TObject*Sender){DWORDdwExStyle=GetWindowLong(Application->Handle
yedezhanghao·2011-07-22 14:00

封装 INI 文件读写函数

//--首先要usesIniFiles(单元）//--窗体创建的时候，读取ini文件信息procedureTfrmAFN04H_F9.FormCreate(Sender:TObject);varvFIni
chinazhd·2011-06-12 23:00

建立程序互斥

procedureTForm1.FormCreate(Sender:TObject); begin CreateMutex(nil,False,'Form1'); ifGetLastError=ERROR_ALREADY_EXISTSthen
haiou327·2011-05-29 15:00

Delphi 调用控件的过程，初学者都想知道

procedure TForm1.Button1Click(Sender: TObject);begin    ShowMessage('cfeers 你好');end; 想在 FormCreate
cfeers·2011-05-12 16:00

全屏显示(Display forms full screen)

用下面的方法可以很简单地实现用窗口覆盖住整个屏幕： procedure TfrmMainForm.FormCreate(Sender: TObject); begin   { Position
robekeane·2011-04-25 10:00

devexpress 动态调用皮肤

usesdxSkinsDefaultPainters;procedureTForm1.FormCreate(Sender:TObject);begincxComboBox1.Properties.Items
·2011-04-01 13:00

delphi实现圆角窗体

procedure TForm1.FormCreate(Sender: TObject); var   hr :thandle; begin   hr:=createroundrectrgn
cfeers·2011-03-23 17:00

Delphi DbGrid鼠标滚屏

NewGridWnd(var message:TMessage);    OldGridWnd: TWndMethod;   procedure TForm1.FormCreate
woxiaoe·2011-03-01 16:00

delphi实现圆角窗体

procedure TForm1.FormCreate(Sender: TObject); var   hr :thandle; begin   hr:=createroundrectrgn
luckliu521·2011-02-17 17:00

使用WndProc来处理消息

TLabel) procedure WndProc(var Message : TMessage); override; end; type TForm1 = class(TForm) procedure FormCreate
·2011-01-17 00:00

Webbrowser中模拟连接点击（非鼠标模拟）

Delphiusesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate
bdmh·2010-12-11 13:00

devexpress 动态调用皮肤

usesdxSkinsDefaultPainters;procedureTForm1.FormCreate(Sender:TObject);begincxComboBox1.Properties.Items
zyyjc·2010-11-06 15:00

Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下

Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下procedureTFrm_Main.FormCreate(Sender:TObject);begin Frm_Main.Left:=0; 
我心飞翔·2010-09-15 09:00

cxGrid在内置右键菜单的后面增加菜单项并实现诸多功能

在内置右键菜单的后面增加菜单项首先应在Form上加一个cxGridPopupMenu控件以启用右键菜单UseBuildInPopupMenus设为TrueprocedureTFormItemList.FormCreate
shazhuyubaichi·2010-08-29 00:00

BCB6.0 父窗体最小化时子窗体关闭不了

重载TForm的CreateParams函数即可 void__fastcallTForm2::FormCreate(TObject*Sender){      void*Handle=MainForm-
dafan·2010-07-29 13:00

由于数据集没有关打开窗口提示“Invalid ariant type”

先看了一下客户信息的dataset是dm.adoquery1，就说在formcreate之前加一个dm.adoquery1.close;试一下，果然好了。
hank5658·2010-06-03 11:00

delphi全屏顯示Form的兩種方法

{MakeyourapplicationFullScreen.Disableallofthesystemkeys.}procedureTForm1.FormCreate(Sender:TObject);
Avan_Lau·2010-04-27 10:00

随机数

varaa:array[1..36]ofstring[2];//aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedureTForm1.FormCreate(Sender:TObject
sforiz·2010-04-11 10:00

Delphi 登录窗体

procedureTMainForm.FormCreate(Sender:TObject);varLoginForm:TfrmLogin;beginApplication.ShowMainForm:=False
qiume·2010-04-02 20:00

木马的自身拷贝功能代码

打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedureTForm1.FormCreate(Sender:TObject); varmyname:string; begin
su_guiyang·2010-01-22 22:38

***的自身拷贝功能代码

的自身拷贝功能代码这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedureTForm1.FormCreate
su_guiyang·2010-01-22 22:38

木马的自身拷贝功能代码

打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedureTForm1.FormCreate(Sender:TObject); varmyname:string; begin
su_guiyang·2010-01-22 22:38

Delphi - 盒子上面看见的一个问题:关于类型转换Type Cast

(TBase) public F1:Integer; procedureSay; end; implementation {$R*.dfm} procedureTForm3.FormCreate
·2009-12-15 13:00
上一页 1 2 3 4 5 6 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他