科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件DELPHI控件Tweblabel的编制

DELPHI控件Tweblabel的编制

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:佚名 来源:电子与电脑 2007年11月2日

关键字: Delphi Tweblabel 编制

  • 评论
  • 分享微博
  • 分享邮件
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;

  //字体缺省大小为10
  font.size:=10;
  font.color:=clblue;   //字体缺省颜色为兰色
  font.style:=[fsUnderline]; //字体缺省风格为下划线
   end;

  4.要想通过单击Tweblabel来启动浏览器,必须重载CLICK函数,代码如下。
   protected
   { Protected declarations }
   procedure click; override;

   实现部分:
   procedure Tweblabel.click;
   begin
  inherited Click; //调用父辈的Click函数
    ExploreWeb(parent.handle,pchar(chttpaddr)); //调用WEB页面
end;

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闂傚倸鍊搁崐鎼佸磹妞嬪孩顐介柨鐔哄Т閻骞栧ǎ顒€濡肩紒鎰殜閺岋繝宕堕埡浣锋睏闂佸搫顑呴柊锝夊蓟閺囷紕鐤€閻庯綆浜炴禒鐐節濞堝灝鐏犻柕鍫熸倐瀵寮撮敍鍕澑闁诲函缍嗘禍鏍磻閹捐鍐€妞ゆ挶鍔庣粙蹇涙⒑鐠恒劌娅愰柟鍑ゆ嫹

    婵犵數濮烽弫鍛婃叏閻戝鈧倹绂掔€n亞鍔﹀銈嗗坊閸嬫捇鏌涢悢閿嬪仴闁糕斁鍋撳銈嗗坊閸嬫挾绱撳鍜冭含妤犵偛鍟灒閻犲洩灏欑粣鐐烘⒑瑜版帒浜伴柛鎾寸洴閹儳煤椤忓應鎷洪梻鍌氱墛閸楁洟宕奸妷銉ф煣濠电姴锕ょ€氼參宕h箛鏃傜瘈濠电姴鍊绘晶娑㈡煕鐎c劌濡介柕鍥у瀵粙濡歌閳ь剚甯¢弻鐔兼寠婢跺﹥娈婚梺鍝勭灱閸犳牠骞冨⿰鍫濈厸闁稿本绋撹ぐ瀣煟鎼淬値娼愭繛鍙壝悾婵堢矙鐠恒劍娈鹃梺鍓插亝濞叉牠鎮″☉銏$厱閻忕偛澧介惌瀣箾閸喐鍊愭慨濠勭帛閹峰懐绮电€n亝鐣伴梻浣规偠閸斿宕¢崘鑼殾闁靛繈鍊曢崘鈧銈嗗姂閸庡崬鐨梻鍌欑劍鐎笛呯矙閹寸姭鍋撳鐓庡籍鐎规洑鍗冲畷鍗炍熼梹鎰泿闂備線娼ч悧鍡涘箠鎼淬垺鍙忔い鎺嗗亾闁宠鍨块崺銉╁幢濡炲墽鍑规繝鐢靛О閸ㄦ椽鏁嬮柧鑽ゅ仦娣囧﹪濡堕崨顔兼闂佺ǹ顑呴崐鍦崲濞戙垹骞㈡俊顖濐嚙绾板秹鏌f惔銏e妞わ妇鏁诲璇差吋閸偅顎囬梻浣告啞閹搁箖宕版惔顭戞晪闁挎繂顦介弫鍡椼€掑顒婂姛闁活厽顨嗙换娑㈠箻閺夋垹鍔伴梺绋款儐閹瑰洭寮婚敐鍛婵炲棙鍔曠壕鎶芥⒑閸濆嫭婀扮紒瀣灴閸╃偤骞嬮敃鈧婵囥亜閺囩偞鍣洪柍璇诧功缁辨捇宕掑▎鎴濆濡炪們鍔岄幊姗€骞嗗畝鍕<闁绘劙娼х粊锕傛煙閸忚偐鏆橀柛鏂跨焸閹偤宕归鐘辩盎闂佸湱鍎ら崹鐢割敂閳哄懏鍊垫慨姗嗗墻濡插綊鏌曢崶褍顏€殿喕绮欐俊姝岊槼闁革絻鍎崇槐鎾存媴缁涘娈┑鈽嗗亝缁诲牆顕f繝姘亜缁炬媽椴搁弲锝夋偡濠婂啰效闁诡喗锕㈤幊鐘活敆閸屾粣绱查梺鍝勵槸閻楀嫰宕濇惔锝囦笉闁绘劗鍎ら悡娑㈡倶閻愯泛袚闁哥姵锕㈤弻鈩冩媴閻熸澘顫掗悗瑙勬礈閸犳牠銆佸鈧幃鈺呮惞椤愩倝鎷婚梻鍌氬€峰ù鍥х暦閸偅鍙忛柟鎯板Г閳锋梻鈧箍鍎遍ˇ顖炲垂閸岀偞鐓㈡俊顖滃皑缁辨岸鏌ㄥ┑鍡╂Ц缂佲偓鐎n偁浜滈柡宥冨妿閳藉绻涢崼鐔虹煉婵﹨娅e☉鐢稿川椤斾勘鈧劕顪冮妶搴′簼婵炶尙鍠栧畷娲焵椤掍降浜滈柟鍝勬娴滈箖姊洪幐搴㈢┛濠碘€虫搐鍗遍柟鐗堟緲缁秹鏌涢锝囩畼妞ゆ挻妞藉铏圭磼濡搫顫岄悗娈垮櫘閸撴瑨鐏冮梺鍛婁緱閸犳岸宕㈤幖浣光拺闁告挻褰冩禍浠嬫煕鐎n亜顏柟顔斤耿閺佸啴宕掑☉姘箞闂佽鍑界紞鍡涘磻閸℃ɑ娅犳い鎺戝€荤壕濂告煕鐏炲墽鈽夌紒妞﹀洦鐓欓柣鐔告緲椤忣參鏌熼悡搴㈣础闁瑰弶鎸冲畷鐔兼濞戞瑦鐝¢梻鍌氬€搁崐椋庣矆娓氣偓楠炴牠顢曢妶鍌氫壕婵ê宕崢瀵糕偓瑙勬礀缂嶅﹪寮婚崱妤婂悑闁告侗鍨界槐閬嶆煟鎼达紕鐣柛搴ㄤ憾钘濆ù鍏兼綑绾捐法鈧箍鍎遍ˇ浼存偂閺囥垺鐓涢柛銉e劚婵$厧顭胯閸ㄤ即婀侀梺缁樓圭粔顕€顢旈崼鐔虹暢闂傚倷鐒︾€笛呮崲閸屾娑樜旈崨顓犲幒闂佸搫娲㈤崹娲偂閸愵亝鍠愭繝濠傜墕缁€鍫熸叏濡寧纭鹃柦鍐枛閺屾洘绻涜鐎氱兘宕戦妸鈺傗拺缂備焦锚婵洦銇勯弴銊ュ籍闁糕斂鍨藉鎾閳ユ枼鍋撻悽鍛婄叆婵犻潧妫楅埀顒傛嚀閳诲秹宕堕妸锝勭盎闂婎偄娲︾粙鎰板箟妤e啯鐓涢悘鐐靛亾缁€瀣偓瑙勬礋娴滃爼銆佸鈧幃銏$附婢跺澶�

    重磅专题
    往期文章
    最新文章