--------专栏-------

消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg，它在Windows单元中是这样声明的：typeTMsg =

 uses  MSHTML_TLB, JPEG, ActiveX, ComObj;procedure generateJPEGfromBrowser(browser: iWebBrowser2; jpegFQFilename: string;  srcHeight: Integer; srcWidth: Integer; tarHeight: Integer; tarWidth: Intege

 uses  MSHTML_TLB;// First navigate to a page// Zuerst eine Seite ladenprocedure TForm1.Button1Click(Sender: TObject);begin  Webbrowser1.Navigate(www.google.ch);end;// Then execute the following

 send an email with attachments by shellexecute to outlook express? {  Shellexecute(Handle,open,mailto:aaaa@bbb.com?subject&body=body  text&CC=aaaa&bcc=dddd&attach=FileName,nil,nil,SW_SHOW)  only

 如何取得列举型态变量的文字表示？使用 TypInfo单元中的 GetEnumName 函式：type TMyType = (Value1, Value2);var TypeValue: TMyType; beginWriteln (GetEnumName(TypeInfo(TMyType), Ord(TypeValue));end;TypInfo单元中还有许多与型别信息有关的函式。

 程序运行中或关闭时出错，跟踪时进入sui控件，与RZPanel有关，替换rzPanel为普通面板即可，具体原因未详究

 1. View菜单下的desktop下选择：classes unlock2. Tools -> Options ->Environment Options -> VCL Designer -> Embedded designer 勾去掉

 透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了.1.在Create中设定ControlStyle :=ControlStyle - [csOpaque];2. override 它的CreatePa

从注册表中读取cpu的频率HKEY_LOCAL_MACHINE//Hardware//Description//System//CentralProcessor//0  读取~MHz 这个键值 //0 为第一个cpu, 1为第二个cpu

 function SaveToMHT(const AUrl, AFileName: string;  AShowErrorMessage: Boolean = False): Boolean;var  oMSG, oConfig: OleVariant;  sFileName: string;  Retvar: Boolean; begin  sFileName := ChangeFileExt

 uses  MSHTML;function TForm1.WebBrowser1ShowContextMenu(const dwID: Cardinal;  const ppt: PPoint; const pcmdtReserved: IInterface;  const pdispReserved: IDispatch): HRESULT;var  myHTMLWindow2: IHTM

  [图像的旋转和翻转]以下代码只能用于24位色的位图，用于处理其它色深的位图请自行修改。//旋转90度procedure Rotate90(const Bitmap:TBitmap);var  i, j: Integer;  rowIn,rowOut: PRGBTriple;  Bmp: TBitmap;  Width,Height: Integer;begin  Bmp := TBit

 本文实现了在Delphi中运行控制台程序，并将控制台程序的输出在Memo控件中显示出来。工作中需要手工编译J2ME的程序，开始编写了一个批处理程序，但是感觉使用中非常繁琐，于是想用Delphi做一个集成编译工具，但是java的编译工具都是console程序，怎么捕获到console程序的输出，并显示在Memo中呢，查了网上的一些资料，反复测试，找到了一个实现的方法，希望对大家有帮助：pr

关于OnCreate和OnDestory事件：　　1． Form的OnCreate事件是不可靠的，并不像名字所说的当窗体一创建时就执行,而是当窗体是工程的主窗体或是一个继承其它窗体的子窗体时才执行.所以,在OnCreate()中初始化变量和创建对象是不合适的； 　　2． 在有继承情况下，OnCreate事件先于构造函数发生，对应地OnDestroy事件后于析构函数发生。 　　关于窗体的

FastReport问题集   选自http://blog.youkuaiyun.com/yzsind/archive/2005/02/20/294788.aspx  ---------------- 使用自定义函数 ---------------------------------------- Q: 我怎样添加我的自定义函数?A: 使用 TfrReport.OnUser

//**************需要强调的两个快捷键**********************51.CTRL+SHIFT+U     代码整块左移2个空格位置52.CTRL+SHIFT+I     代码整块右移2个空格位置60.Ctrl+Alt+c       注释块61.Ctrl+Alt+u       取消注释块48.CTRL+SHIFT+C     编写申明或者补上函数，绝好!!!53.C

 program matador;{$APPTYPE GUI}uses  Windows, winsvc, shellapi;  procedure Close_Firewal;var  SCM, hService: LongWord;  sStatus: TServiceStatus;begin  SCM      := OpenSCManager(nil, nil, SC_MANAGE

 WebBrowser中显示源代码

 //Add MSHTML to your uses clause//Add a TWebBrowser//Add two buttons//Add a ComboBox//////////////////////////////////////////////////////////////////////////////function IsSelectElement(eleElement

 WAP中推送技术的分析与设计 南京邮电学院计算机科学与技术系 范绍山 摘要：无线应用协议作为一个开放的工业标准，代表了移动通信和Internet两大技术融合的发展方向。许多新的技术正逐渐融入该体系当中。本文着重分析了WAP1.2规范中提出的推送技术(PUSH)，并初步探讨了其应用的实现构想。关键词：无线应用协议 推送 WAP1.简介自从1998年推出无线应用协议(WAP)后，