摘要：HTML特效文字代码大全一、从右向左移代码需要移动的文字二、从左向右移代码需要移动的文字三、一圈一圈绕着移动代码需要移动的文字四、只移动三次就停了代码需要移动的文字五、移一步，停一停代码需要移动的文字六、左右来回移动代码需要移动的文字七、忽隐忽现移动代码需要移动的文字八、从下向上移动代码需要移动的文字例子1：云南省石产业统计调查年报处理程序例子2：云南省石产业统计调查年报处理程序 原文链接：http://wenku.baidu.com/link?url=Yx5nuTK_QOUhzMF9VzDrta9cD1RwpsaknxxqubMKxIqTLVS1HR4g1gateapFEnORUgs5BsU 阅读全文

摘要：函数一：usesWindows,SysUtils,Classes,ShellAPI;function RunAndWait(FileName: string; Visibility: Integer): THandle; var zAppName: array[0..512] of Char; zCurDir: array[0..255] of Char; WorkDir: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin try StrPCopy(zAppName, FileNa... 阅读全文

摘要：1、在主窗体的private中定义过程：procedure doenterastab(var Msg:TMsg;var Handled:Boolean);begin if Msg.message=WM_KEYDOWN then begin if Msg.wParam=VK_RETURN then keybd_event(VK_TAB,0,0,0); end; end;2、在主窗体的oncreate事件中加入：Application.OnMessage:=doenterastab; 阅读全文

摘要：一、先定义几个外部变量var myhandle:THandle; mystartupinfo:TStartupInfo; myprocessinfo:TProcessInformation;二、定义两个过程：procedure execueapp(mypath:string);procedure closeapp(myhandle:THandle);实现：procedure execueapp(mypath:string);begin FillChar(mystartupinfo,SizeOf(mystartupinfo),0); //清除mystartupinfo中的数据 mystartup 阅读全文

摘要：Hi Hendra ... this code does what you ask for ... I found it in this forum :var I: Integer; ASessionList: TList;begin unimemo1.Lines.Clear; ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList; try for I := 0 to ASessionList.Count - 1 do begin UniMemo1.Lines.Add(TUniGUISessio 阅读全文

摘要：Delphi开发Windows服务程序2012-07-14 本文行家：hnxiaofu开发步骤:1、New->Other->ServiceApplication2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一下：AllowPause:是否允许暂停AllowStop:是否允许停止Dependencies:设置服务的依存关系，服务的启动是否依赖于某个服务或者组DisplayName:在“服务”窗口显示的名称Interactive:设置开发步骤: 1、New->Other->Service Application 2、现在一个服务程序的框架已 阅读全文

摘要：unit Funcoes_Traducao_u;{Objetivo:Traduzir automaticamente todas as mensagens do inglês Motivo: O UniGUI da versão atual não tem função de localização das mensagens internas doDelphiNoTUniServerModule tem a propriedade ExtLocate que tem que ficar pt_BR para tradu&# 阅读全文

摘要：最近做程序的时候需要用到delphi和foxpro的dbf表，想通过delphi来操作dbf表！delphi操作foxpro的表有好多的办法，如用datasorce连接tquery组件把查询结果显示在dbgrid表格里这样没有办法导出查询的结果！可是想把查询dbf表的结果给导出为dbf文件就比较麻烦了！经过一番努力找到了一个好办法！在foxpro中完成这些工作简直太容易了，但很多功能必须用delphi实现。虽然可以用foxpro做个小程序，然后再用delphi调用，可是比较麻烦。这就让我想到了可以用Delphi通过调用Com组件的方式直接执行foxpro命令来实现，代码如下：foxPro:=C 阅读全文

摘要：Put this code in MainForm->ExtEvents->OnBeforerender : window.onbeforeunload =function(){ ajaxRequest(sender,'SessionClosed',[]); alert("Session Closed");// You can remove this line. only for test };And put this code on MainForm->OnAjaxEvent : IfSameText(EventName,'Ses 阅读全文

摘要：Delphi面向对象程序设计思想学习笔记第二章 Delphi对象模型Delphi类类型声明语法：Type 类名 = class (基类) 数据成员声明; 过程和函数声明; 属性;End;类型定义的例子：//一个“人”类的定义type TMan = class (TObject) private FAge: Integer; procedure SetAge(Value: Integer); public Language: string; Married: Boolean; Name: string; SkinColor: string; constructor create(nname:st 阅读全文

摘要：function　Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;　//压缩或解压缩文件 var　ziper:TVCLZip;begin//函数用法：Zip(压缩模式，压缩包大小，压缩文件，解压目录) //ZipMode为0：压缩；为1：解压缩　PackSize为0则不分包；否则为分包的大小 tryif　copy(UnzipDir,　length(UnzipDir),　1)　=　'\'　thenUnzipDir　:=　copy(UnzipDir,　1,　length(UnzipDir)　-　1);　// 阅读全文

摘要：SendMessage基础知识 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）； 参数： hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口，但消息不被发送到子窗口。 ... 阅读全文

摘要：很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象牙塔”，涉及的面广了，遇到的问题多了，慢慢地也有了自己的一点心得体会。其实,Delphi是基于Object Pascal 语言的开发工具，也就是说Delphi本质上是一种语言工具，并且是真正的面向对象的。下面我举的例子就是用Delphi实现的一个托盘小程序。程序短小精悍，脉络分明，我将对关键部分进行详细讲解。就象候俊杰先生把MFC一层一层地剥开一样，今天我也来一次“庖丁解牛”。 在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函.. 阅读全文

摘要：Simple question about MySQL embedded application.Discussion of open issues, suggestions and bugs regarding to UniDAC componentsPost a reply 7 posts • Page 1 of 1Simple question about MySQL embedded application.by tanghz » Mon 11 Oct 2010 23:29Hi , I am wondering how I can use the embedded MySQL 阅读全文

摘要：delphi bookmark使用关于书签(BookMark)操作； 书签操作主要用于在表中快速地定位记录指针，在应用程序中常常要保存记录指针所在的位置，在进行其他处理之后，希望能快速地返回到先前指针所在的位置，此时，使用书签将显得特别有用。有关书签操作，Delphi提供了三个方法，它们是： ● GetBookMark ● GotoBookMark ● FreeBokMark这三个方法一般都是在一起使用，GetBookMark方法返回一个TBookMark类型的变量，该变量包含着指向当前记录的指针，GotoMark方法用于快速地将记录指针定位到具有书签的记录处。FreeBookmark... 阅读全文

摘要：unigui组件中client javascript delphi组件之间的操作：UniLabel组件：function OnClick(sender, e){ MainForm.UniLabel1.setText('Click!');}function Onmousemove(sender, x, y){ MainForm.UniLabel1.setPosition(x, y);}unibutton组件：function OnMouseout(sender, e){ sender.setText('Out');}uniedit组件function form.O 阅读全文

摘要：//放置TRMPDFExport组件,然后用下面的代码RMReport1.ExportTo(RMPDFExport1,'文件名'); 阅读全文

摘要：Delphi是一种强类型转换的语言。在VC中，赋值符用″=″,例如x=1;到了Delphi赋值符就变成了″:=″,例如x:=1。 从赋值时用符号″:=″而不用″=″,就隐约可见Delphi对类型匹配要求之严,即赋值符右边的类型一定要和左边一致。用惯了VB或VC的程序员,初用Delphi,稍不留神,就会出现类型不匹配的错误。对初学者而言,类型转换也是学习Delphi的重点和难点,为此本文特对Delphi的类型转换做一总结,以供读者参考。一、数的类型转换 把表达式的类型从一种类型转化为另一种类型,结果值是把原始值截断或扩展,符号位保持不变。例如:数的类型转换 举例字符转换为整数 Integer(. 阅读全文