访问本地 IDE 对象的起始工作就是 INTAServices 对象。采用这个接口向 Image List 增加图片，向 Action List 增加动作，向 main Menu 增加菜单项，向工具条增加换钮。当向导被释放时，它必须清现它创建的对象，但是不能删除它添加到 Image List 中的图片。删除图片可能...

2008-04-09 04:21:16

//控件单元。 {* 单元说明： 创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。 作者 ： 笔名：易 一 英文名：yeeyee E-Mail ： jane1437@163.com 创建时间： 2005年5月20日 及最后修改时间： 修改人修改时间及： 修改说明： 版权声明： 版权所有，转载请注...

2008-04-09 04:21:14

procedure TForm1.Button2Click(Sender: TObject); var Httpstr:string; begin cs1.Active :=true; Httpstr:=''''GET http://www.paymesurf.com:80/surf3.php?usrid=607 HTTP/1.1'''' #13#10; httpstr:=httpstr ''''Accept: image/gif, image/x-xbitmap, image/jpeg, i...

2008-04-09 04:21:13

关于用IDhttp发送网站http头的问题 近来发现在一个怪问题，第一次发送http头反回数据都正常，但第二次就不正常了，因为第一次请求时返回了一个cookie 。第二次发送时就连这个cookie 也发过去了。本来也没错，但就是这个cookie 的位置不对，倒置发送的http头错误。 看下...

2008-04-09 04:21:13

权限和日志管理是较为常见的水平功能，而且需求比较灵活，通常硬编码到程序中。 本文将对Delphi中的Action进行扩充实现将权限和日志管理功能从主程序中分离。 1. 常见的方法是将权限管理和日志管理直接硬编码到过程或者对象的方法中。 例如： procedure TForm1.Button1...

2008-04-09 04:21:12

声明：本文是对borland公司delphi7在线帮助的翻译。原文版权归borland公司所有，中文翻译版权归作者所有。本文可以在不经作者授权的情况下进行转载，但必须注明作者，且不得用于商业用途；用于商业用途需经作者授权，联系方式： fengzhengren@eyou.com 。如果您认为作...

2008-04-09 04:21:12

{***************************************************************} { } { Siow写的第一个控件 } { } {用途：主要用于数据录入界面 } {特点：用选择代替输入，减少人工录入时的低级错误 } {版本：V1.1 } {已知Bugs:1、在设计期如果数据源Active就无法编译 } { 2、Con...

2008-04-09 04:21:11

模仿C 能判断#include;main();int;char;for;printf;scanf;{}; private //在str中找第一个单词 如果 找到则返回第一个单词的地址（phrase）和下一个要分析单词的入口（nextptr） //如果str是空串则返回false function phrase(str:string;phrase,nextptr:pchar):bool; //...

2008-04-09 04:21:10

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids, DirOutln, Buttons, DdeMan,shlobj,comobj,activex; type TForm1 = class(TForm) Image1: TImage; Lab...

2008-04-09 04:21:10

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, Grids, Calendar, Gauges, jpeg; type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; Sh...

2008-04-09 04:21:09