TObject

虚屏 (Win98关机时的网格，但不能锁定)

void__fastcallTForm1::Button1Click(TObject*Sender){   unsignedshortary[8]={0x55,0xAA,0x55,0xAA,0x55,0xAA
aniven·2005-12-19 16:00

列出局域网內所有SQL Server

H:#include//加一个ListBox和Button控件;CPP:void__fastcallTForm1::Button1Click(TObject*Sender){   VariantSQLServer
aniven·2005-12-19 16:00

让TDBGrid的奇偶数行顯示不同的顏色

在DBGrid的onDrawColumnCell事件中加入以下代碼void__fastcallTForm1::DBGrid1DrawColumnCell(TObject*Sender,     constTRect
aniven·2005-12-19 16:00

按下ENTER转换为TAB

Form1->KeyPreview=true;void__fastcallTForm1::FormKeyPress(TObject*Sender, char&Key){  if(Key==VK_RETURN
aniven·2005-12-19 16:00

抓 图

procedureTForm1.FormClick(Sender:TObject);var winHWND,hCur:integer; winDC:integer; rect:TRect; pt:TPoint
konhon·2005-11-11 19:00

《Delphi高手突破》学习笔记（二）

 第四章、VCL库TObject封装了OP类/对象的最基本行为。TPersisitent派生自TObject，它及其派生类具有自我保存、持久存在的能力。
wanshi131·2005-11-08 16:00

通过程序预览Office文档

此部分来源：http://princed.mblogger.cn/posts/11885.aspx//usesActiveX;procedureTForm1.MenuPreviewClick(Sender:TObject
nhconch·2005-10-08 16:00

向CGI提交數據

向CGI提交數據procedureTForm1.Button1Click(Sender:TObject);var lUrl:string; lParams:TStrings; lHtml:string;
konhon·2005-08-25 22:00

如何通过发送WM_COMMAND消息模拟点击其他程序窗体上的菜单项?

procedureTForm1.Button1Click(Sender:TObject);var  h,m,s,s1:hwnd;begin h:=FindWindow('notepad',nil);  
konhon·2005-08-25 21:00

在Lalel上单击，然后在Label下文出现下拉框（popupmenu），怎样让下拉框紧挨着Label下方出现。

procedureTForm1.Label1Click(Sender:TObject);var lPoint:TPoint;begin lPoint.X:=TLabel(Sender).Left; lPoint.Y
konhon·2005-08-25 06:00

如何得到鼠标经过listview每一行的各列信息

如何得到鼠标经过listview每一行的各列信息usesCommCtrl;procedureTForm1.ListView1MouseMove(Sender:TObject;Shift:TShiftState
konhon·2005-08-25 06:00

几个获取Windows系统信息的Delphi程序

具体程序如下：ProcedureTform1.Button1Click(sender:TObject);VarOSVI:OSVERSIONINFO;beginOSVI.dwOSversioninfoSize
hedylin·2005-08-08 17:00

CSDN问答：怎样程序控制IE窗口的左侧搜索栏是否打开

procedure TForm1.Button1Click(Sender: TObject);var xWin:TShellWindows; i : integer; x1,x2,x3 : olevariant
lovnet·2005-06-28 11:00

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

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

如何获得剪贴板中的HTML格式的数据

procedure TForm1.Button1Click(Sender: TObject); var CF_HTML : UINT; clpHandle : THandle; cf :
lovnet·2005-06-22 23:00

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

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

有关透明窗口的显示

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

[DEV] C++ Biulder 中改变公共对话框的内容

Windows提供的标准对话框窗体，既然是这样我们就可以通过WINAPI函数来做一些改动 我们在OnShow事件里加入如下代码void __fastcall TForm1::OpenDialog1Show(TObject
isiqi·2005-03-13 20: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

强大的DELPHI RTTI--兼谈需要了解多种开发语言

用了两个晚上时间就搞定了（要不是因为开始时搞错对象--基类用了TObject，其实应该是用TPersis
Raptor·2005-01-27 11:00

强大的DELPHI RTTI--兼谈需要了解多种开发语言

用了两个晚上时间就搞定了（要不是因为开始时搞错对象--基类用了TObject，其实
tibaloga·2005-01-27 11:00

直接修改TWebBrowser显示内容

procedureTForm1.Button1Click(Sender:TObject);beginWebbrowser1.Navigate('about:blank');end;procedureTForm1
dypher·2004-10-08 16:00

delphi读取数据库链接ini文件

TDataModule)   ADOCon_Tax:TADOConnection;   ADOQry_Tax:TADOQuery;   procedureDataModuleCreate(Sender:TObject
jimmy1980·2004-10-08 10:00

在窗体创建时显示窗体

procedureTForm1.FormCreate(Sender:TObject);begin Visible:=True;//把窗体显示出来 ShowMessage('窗体已经显示出来了');end
cjsh·2004-08-21 11:00

计算圆周率 Pi (π)值, 精确到小数点后 10000 位

精确到小数点后10000位精确到小数点后面1000位再测试一下:在Form上再放一个按钮Button2,在这个按钮的onClick事件写:void__fastcallTForm1::Button2Click(TObject
maconel·2004-07-12 10:00

Ansistring使用方法大全

Ansistring 转 char 代码: void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString
izuoyan·2004-07-02 13:00

关于AnsiSting的使用大全

Ansistring转char代码:void__fastcallTForm1::Button1Click(TObject*Sender){AnsiStringTest="哈哈";char*chr=Test.c_str
chensheng913·2004-06-30 18:00

关于AnsiSting的使用大全

Ansistring 转 char 代码: void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Test = "
wapysun·2004-06-30 18:00

关于AnsiSting的使用大全

Ansistring 转 char 代码: void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Test = "
JAVA海洋·2004-06-30 18:00

BCB运行期取得Enum(枚举)类型信息

不过即便如此，BCB仍然可以享受TObject带来的好处,虽然我们不能够直接使用在delphi下十分方便的GetEnumName。我们还是不需要为每个枚举类型实现一个静态的String列表。
烟波三千里人鬼五百年·2004-06-25 15:00

今天做了一个小软件，总结了一些经验与大家共享。

1、用sender的方式增强代码的健壮性procedure TMainfrm.CBAutoRunClick(Sender: TObject);Const  SIGNINREGISTRY = '
lujar·2004-05-09 10:00

考虑继承，a tip about 《Inside VCL》

李维老师在对象基本服务那一节中讲到了对象的释放服务，可以看到一个简单的TObject.DestroyDelphi却在背后为我们隐藏
hkbarton·2004-03-25 17:00

代替showmodal其他两种方法

procedureTForm1.Button1Click(Sender:TObject);beginenablewindow(handle,false);//窗口一不可用form2.show;end;procedureTForm2
yanleigis·2001-06-03 13:00
上一页 38 39 40 41 42 43 44 45 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他