formcreate

用Delphi编写涂鸦桌面的小程序

接下来，在Form的OnCreate事件中写入使窗口的客户区域显示屏幕画面的代码（关键步骤）procedureTForm1.FormCreate(Sender:TO
aroc_lo·2009-11-26 13:00

DELPHI如何响应事件

在FormCreate这个函数里修改KeyPreview:=True;在FormKey
aidy22·2009-11-12 09:00

截获异常，并在运行时不报错

TObject; E: Exception);begin  //ShowMessage('aaaaa');  //弹出异常信息end; procedure TMainForm.FormCreate
cqujsjcyj·2009-10-26 17:00

delphi BYTE 转字符串

BYTE转字符串procedureTForm3.FormCreate(Sender:TObject);begin Self.Paint;end;functionByteToHex(Src:Byte):String
pgnet·2009-10-07 21:00

利用注册表 将程序设置为开机启动项目

  可以在FormCreate中进行设置 uses..... 
shuilan0066·2009-09-18 17:00

Delphi 隐藏窗口表单

    我一开始以为，将表单设置为隐藏，可以在表单创建事件中即FormCreate(Sender:TObject)去设置    因此，我在这个procedureTForm.FormCreate(Sender
shuilan0066·2009-09-18 16:00

BCB 中OLE关闭Excel进程

 在FormCreate的时候就创建了ExcelApplication，但是后来关闭的时候，进程中还是存在EXCEL.EXE，摸索了半天，是因为定义了三个万能对象，ExcelApp,WorkBook,Sheet
jinling1441·2009-09-16 23:00

不规则窗体小技巧

mbLeft)thenbeginReleaseCapture;Self.Perform(WM_SYSCOMMAND,$F012,0);end;  2.创建圆角矩形窗体 procedureTForm1.FormCreate
dropme·2009-08-31 17:00

系统菜单上添加自定义的菜单项

WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; constidMyFunc = $f200; procedure TForm1.FormCreate
cqujsjcyj·2009-05-13 15:00

AdvStringGrid使用方法(2)

procedure TForm1.FormCreate(Sender: TObject);begin  AdvStringGrid1.FixedRows:=2;  AdvStringGrid1.SaveFixedCells
shuiying·2009-01-12 18:00

Delphi2009的GIF顯示

uses GIFImg; procedure TForm1.FormCreate(Sender: TObject); begin   // 先在窗体上放一个 TImage 组件：Image1
liang1022·2008-11-30 09:00

程序启动时不显示主窗体

Delphi中实现：程序启动时不显示主窗体 在程序中（工程文件或窗体的FormCreate（）里...）加入如下语句即可实现： Application.ShowMainForm:=False;
ZHOUJIAOSHOU·2008-11-14 08:00

数据库查询进度条

 procedureTForm1.FormCreate(Sender:TObject);begin ADOQuery1.ExecuteOptions:=[eoAsyncFetch];//设为异步读取end
genispan·2008-10-23 23:00

delphi小知识，相当基础

1：生成非矩形窗口利用win32API函数setwindowrgn可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子：procedureTForm1.FormCreate(Sender:TObj
dongyonggan·2008-09-03 16:00

Delphi 类似实现QQ多窗口显示任务栏上

procedure TForm2.FormCreate(Sender: TObject);begin  SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle
bigpower521·2008-08-26 11:33

Delphi 类似实现QQ多窗口显示任务栏上

procedureTForm2.FormCreate(Sender:TObject);beginSetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle
bigpower521·2008-08-26 11:33

delphi ord()

答：procedureTForm1.FormCreate(Sender:TObject);vara:string;begina:='啊';ShowMessage(IntToStr(ord(a[1])))
liquanhai·2008-06-01 04:00

[转]Delphi下拉列表框

//载入 procedure TForm1.FormCreate(Sender: TObject); var PID: PInteger; i: integer; begin with ComboBox1
heiheben·2008-04-09 10:00

如何在一个窗体中嵌入另一个窗体

Form1usesunit2;procedureTForm1.FormCreate(Sender:TObject);begin form2:=TForm2.Create(Panel,self); form2
bigpower521·2008-04-01 08:58

Delphi+MSComm控件串口收发程序

//Delphi+MSComm控件串口收发程序 //[email protected] procedure TForm1.FormCreate(Sender: TObject); begin
javatoyou·2008-03-26 13:00

让自己做的程序在开机后自动启动

举例：procedureTForm1.FormCreate(Sender:TObject);varmyname:string;constK='\Software\Mi
sally·2007-10-25 15:09

Delphi设置全局快捷键

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject
konglx·2007-06-02 09:00

动态连接数据库

dephi连接方法:procedure TloginForm.FormCreate(Sender: TObject);varcurrentPath,str,path:String;begin path:
rimoer·2007-04-25 18:00

用TImage，TcxImage显示来自数据库的图片jpeg

procedure TForm1.FormCreate(Sender: TObject); var MyStream:Tmemorystream; MyJPEG:TJpegImage;
wapysun·2007-03-24 20:00

木马自我拷贝法[Delphi]

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

木马自我拷贝法[Delphi]

这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedure TForm1.FormCreate
xzknet·2006-08-09 11:00

delphi编程实现检测声卡存在

为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem，接着在窗体创建时检测声卡：procedureTForm1.FormCreate
wbryfl·2006-08-07 11:00

Delphi6 实现文本框的自动完成功能

functionSHAutoComplete(hwndEdit:HWnd;dwFlags:DWORD):HResult;stdcall;external'Shlwapi.dll';procedureTForm1.FormCreate
tanaya·2006-08-02 13:00

产生不重复随机数的简便算法

varaa : array[1..36] of string[2]; //aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedure TForm1.FormCreate(Sender
牵着老婆满街逛·2006-04-17 17:00

把控件的Hint显示在StatusBar上

在構造函數或FormCreate中:Application->OnHint=ShowHint;ShowHint為自定義函數:void__fastcallShowHint(TObject*Sender
aniven·2005-12-19 16:00

CSDN问答：用WEBBROWSER怎么复制粘贴不能用了

在窗体的OnCreate事件中加入如下代码：OleInitialize(nil); 在OnClose事件中加入代码：OleUninitialize; procedure TForm1.FormCreate
lovnet·2005-06-28 10:00

CSDN文答：怎样使TWebbrowser中的复制粘贴生效

在窗体的OnCreate事件中加入如下代码：OleInitialize(nil); 在OnClose事件中加入代码：OleUninitialize; procedure TForm1.FormCreate
lovnet·2005-06-14 19:00

有关透明窗口的显示

第1种半透明窗口//----------------------------------------------------------------void__fastcallTForm1::FormCreate
aniven·2005-03-23 13:00

窗口设置为透明

  void __fastcall TForm1::FormCreate(TObject *Sender)   {    long lRt=GetWindowLong(Handle,GWL_EXSTYLE
linkboy·2005-03-12 22:00

窗口设置为透明

  void __fastcall TForm1::FormCreate(TObject *Sender)   {    long lRt=GetWindowLong(Handle,GWL_EXSTYLE
linkboy·2005-03-12 22:00

在窗体创建时显示窗体

procedureTForm1.FormCreate(Sender:TObject);begin Visible:=True;//把窗体显示出来 ShowMessage('窗体已经显示出来了');end
cjsh·2004-08-21 11:00
上一页 1 2 3 4 5 6 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他