DELPHI控件Tweblabel的编制

2008-04-09 04:17:32来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  Internet已经越来越多地渗透到生活的各个方面以及各个领域,许多人都有了自己漂亮的主页,但是,如何简洁而快速地调用这些主页呢?这就是用DELPHI的Tweblabel控件方法。首先来看看这个控件的威力。

  上面这个Form窗体中放了三个Tweblabel 控件,你不用编写一句程序,只是简单地把它们拖放到Form 上,改一下网页的地址,就可以运行了。当光标移动到文字上时,光标就会自动变成手形,用鼠标轻轻地点击一下,浏览器就会启动,它将把你带到你想去的地方。接下来将引导你一步一步地学习,使你不但要了解这个奇妙的Tweblabel控件,而且要学会如何用DELPHI进行最奇妙的设计即控件编程。

  启动DELPHI 3(或者DELPHI 4),菜单上有一个Component,用鼠标单击一下,选择New Component就会弹出一个窗口。有几样东西需要填写,先来解释一下。
   Ancestor type:表示被继承的对象,是个下拉框,选TLabel。
   Class Name:表示新创建的类的名字,取名为Tweblabel。
   Palette Page:表示把Tweblabel放到控件面板上的哪个栏位上,选缺省Sample,也可以选别的,或者干脆取个新栏位名字。
   Unit file name:选缺省。
   Search path:选缺省。

  然后按“Create Unit”按钮。
  DELPHI为我们创建了这个单元,并建起了骨架。下面就是用DELPHI编写的代码。

  unit weblabel;

  interface
  uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

  type
   Tweblabel = class(TLabel)
   private
   { Private declarations }
   protected
   { Protected declarations }
   public
   { Public declarations }
   published
   { Published declarations }
   end;

  procedure Register;

  implementation

  procedure Register;
  begin
   RegisterComponents(Samples, [Tweblabel]);
  end;

  end.

  DELPHI的Unit分为两个部分,一个是interface(界面),另一个是implementation(实现)。并且类的定义分private、protected、public、published几个,前面三个是类固有的,published则是控件特有的? 中的变量可以显示在DELPHI的控件编辑器里。

  有了DELPHI编写的控件的骨架之后,又该如何添加代码呢?我们需要做以下几件事情:
  1.需要一个变量存放Internet主页的地址;
  2.需要一个函数来完成调用浏览器访问Internet主页;
  3.需要初始化这个Tweblabel,比如字体、颜色、风格使它更像一个链接;
  4.当鼠标在Tweblabel上单击时,浏览器就会被启动。

  具体作法如下:
  1.定义变量
   private
   { Private declarations }
  //定义一个变量存放HTTP主页的地址
  Fhttpaddr:string;

   //为了使控件编辑器能够修改它,则加入:
   published
   { Published declarations }
   property CHttpaddr: string read Fhttpaddr write Fhttpaddr;
   //将变量输出到控件编辑器中,名称应该为HTTPADDR,前面加C是为了方便,
   //它将直接排列在Caption的下面,方便修改。

  2.调用浏览器访问INTERNET主页函数
   function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall;
   参数定义:
   hWnd: 父窗口句柄
   Operation: 操作模式 open 或 print
   FileName: 文件名指针
   Parameter: 传递给执行文件的参数
   Directory: 缺省目录
   ShowCmd: 程序启动后的状态:(1)SW_SHOWNORMAL 正常 (2)SW_MINIMIZE 最小 (3)SW_MAXIMIZE 最大

   不考虑错误判断,打开一个WEB页面的例子:
   ShellExecute(handle, open, http://www.microsfto.com, nil, nil, SW_SHOWNORMAL);

  函数ShellExecute包含在单元ShellAPI中。为了处理各种情况,我们定义了一个过程。
   public
   procedure ExploreWeb(handle:HWND ; page:PChar);

   具体代码使用Robert Vivrette先生编写的程序片段。
  procedure Tweblabel.ExploreWeb(handle:HWND ; page:PChar);
  var
   Returnvalue : integer; //实际调用WEB页面
  begin
   ReturnValue := ShellExecute(handle, open, page, nil, nil, SW_SHOWNORMAL);
   if ReturnValue $#@60;= 32 then
   case Returnvalue of
   0 :
MessageBox(handle,错误:内存溢出!,WEB页面出错信息,0);
   ERROR_FILE_NOT_FOUND:
MessageBox(handle,错误:文件未找到!,WEB页面出错信息,0);
    ERROR_PATH_NOT_FOUND:
MessageBox(handle,错误:目录错误!,WEB页面出错信息,0);
   ERROR_BAD_FORMAT :
MessageBox(handle,错误:EXE文件格式错误!,WEB页面出错信息,0);
   // All other errors . See help for more ReturnValues of ShellExecute
  else
 MessageBox(handle,PChar(错误信息[: IntToStr(Returnvalue) ]),WEB页面出错信息,0)
   end
  end;

  3.我们知道,必须重载Create函数才能加入我们的初始化代码。
   public
   { Public declarations }
   constructor Create(AOwner: TComponent); override;

   实现部分:
   constructor Tweblabel.Create(AOwner: TComponent);
   begin
  //调用父辈的CREATE
  inherited Create(Aowner);

   //以下是自己的初始化代码
 //将光标设置为手型
  Cursor:= crHandPoint;

  //令标题=主页地址
  chttpaddr:=http://www.nbip.net/michaeljia;
  Caption:=chttpaddr;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi 中使用计算出的字段

下一篇:监视剪贴板内容