首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

文章分类 -  Borland

摘要:网上找来的 感觉对入门者很有启示 收藏一下了!No.1 判断逻辑类型 }var B: Boolean;beginB := Boolean(2); //这样只是为了调试//B := True;if B = True then ShowMessage('B = True'); //不建议//不安全///////if B then ShowMessage('B'); //建议//简短end; var B... 阅读全文

posted @ 2005-06-22 04:01 delphi 阅读(399) 评论(0) 推荐(0)

摘要:在delphi中使用xml文档有两种方法 使用xml broker, 是delphi 内置的。例: unit ShowXML; interface uses Classes HTTPApp Db DbClient Midas XMLBrokr WebComp MidItems; type TCustomShowXMLButton = class(TXMLButton ISc... 阅读全文

posted @ 2005-06-22 03:53 delphi 阅读(409) 评论(0) 推荐(0)

摘要:procedure Delay(msecs:integer); var FirstTickCount:longint; begin FirstTickCount:=GetTickCount; repeat Application.ProcessMessages; until ((GetTickCount-FirstTickCount) >= Longint(msecs)); ... 阅读全文

posted @ 2005-05-03 23:00 delphi 阅读(397) 评论(1) 推荐(0)

摘要:unit MainUnt; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, Buttons,Activeds_TLB; type TIISConfigFrm = class(TFo... 阅读全文

posted @ 2005-03-31 11:38 delphi 阅读(565) 评论(0) 推荐(0)

摘要:the following code is implemented to take care of the access to the cache (history) Private Declare Function FindFirstUrlCacheGroup Lib "wininet.dll" ( _ ByVal dwFlags As Long, _ ByVal dwFil... 阅读全文

posted @ 2005-03-31 11:38 delphi 阅读(883) 评论(0) 推荐(0)

摘要:To print Webbrowser control use any of these three options. 1. Sending ^p key, using SendKeys, which is not really clean programming 2. Using the shell command, and rundll32 Shell "rundll32.exe ... 阅读全文

posted @ 2005-03-31 11:37 delphi 阅读(400) 评论(0) 推荐(0)

摘要:BeforeNavigate2 DownloadBegin DownloadComplete NavigateComplete DocumentComplete 阅读全文

posted @ 2005-03-31 11:36 delphi 阅读(293) 评论(0) 推荐(0)

摘要:TWebBrowser OleObject and Document data -------------------------------------------------------------------------------- Introduction The OleObject property exposes the objects internal to TWebB... 阅读全文

posted @ 2005-03-31 11:35 delphi 阅读(2409) 评论(0) 推荐(0)

摘要:TWebBrowser - Properties -------------------------------------------------------------------------------- TWebBrowser has the following properties (most of these properties are shown within Object... 阅读全文

posted @ 2005-03-31 11:34 delphi 阅读(1112) 评论(0) 推荐(0)

摘要:TWebBrowser supports the following event handlers (this list is taken from the events listed within Object Inspector): OnBeforeNavigate2 OnClientToHost OnCommandStateChange OnDocumentComplete On... 阅读全文

posted @ 2005-03-19 11:54 delphi 阅读(1893) 评论(0) 推荐(0)

摘要:(一)初级应用篇: 资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下),我们完全可以做出跟VC一样效果的文件来。 资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏... 阅读全文

posted @ 2005-03-19 11:49 delphi 阅读(1110) 评论(0) 推荐(0)

摘要:{A page must be already loaded into TWebBrowser} procedure TForm1.Button1Click(Sender: TObject); begin with WebBrowser1 do begin OleObject.document.body.Style.scrollbarArrowColor := '#0099F... 阅读全文

posted @ 2005-03-19 11:47 delphi 阅读(351) 评论(0) 推荐(0)

摘要:1、初始化和终止化(Initialization & Finalization) 大家在执行TWebBrowser的某个方法以进行期望的操作,如ExecWB等的时候可能都碰到过“试图激活未注册的丢失目标”或“OLE对象未注册”等错误,或者并没有出错但是得不到希望的结果,比如不能将选中的网页内容复制到剪贴板等。以前用它编程的时候,我发现ExecWB有时侯起作用但有时侯又不行,在Delphi生... 阅读全文

posted @ 2005-03-19 11:46 delphi 阅读(3818) 评论(0) 推荐(0)

摘要:OLECMDID_OPEN OLECMDID_NEW OLECMDID_SAVE OLECMDID_SAVEAS OLECMDID_SAVECOPYAS OLECMDID_PRINT OLECMDID_PRINTPREVIEW OLECMDID_PAGESETUP OLECMDID_SPELL OLECMDID_PROPERTIES OLECMDID_CUT OLECMDID_COPY O... 阅读全文

posted @ 2005-03-19 11:45 delphi 阅读(1171) 评论(0) 推荐(0)

摘要:{========================================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干,抄抄写写整理了一些网络函数供大家使用。 希望大家能继续补充 ==========================================... 阅读全文

posted @ 2005-03-19 11:43 delphi 阅读(731) 评论(1) 推荐(0)

摘要:0:几种数学式的定义: Fibonacci数列: function Fibonacci(n:integer):integer; begin if n=1) then result:=1 else if (n>=2) and(m=0) then result:=n+2 else if (m>=1) and (n>=1) then result:=Ackerman(Acke... 阅读全文

posted @ 2005-03-18 03:16 delphi 阅读(523) 评论(0) 推荐(0)

摘要:procedure TForm1.FormCreate(Sender: TObject); var fstyle: dWord; begin fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE); SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER) end; 阅读全文

posted @ 2005-03-18 03:02 delphi 阅读(311) 评论(0) 推荐(0)

摘要:procedure DatasetToXML(Dataset: TDataset; FileName: string); unit DS2XML; interface uses Classes, DB; procedure DatasetToXML(Dataset: TDataset; FileName: string); implementation uses SysUti... 阅读全文

posted @ 2005-03-18 02:57 delphi 阅读(1298) 评论(0) 推荐(0)