在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>Delphi>文档A0000441 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章
没有相关文章
发表文章
巧用继承类扩展控件功能

作者:ZhangShunZhong     提交人:zhangshunzhong     发布时间:03-08-22     文章类型:原创     浏览量:2350
参考链结:http://    
关键字:
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000441]

巧用继承类扩展控件功能

  在Delphi中,有时感到需要某个功能而控件又不能提供,在这里介绍一个简单实用的方法:从控件类继承一个类,就可以实现扩展功能。比如对一个Splitter,如果想要获得它的OnClick事件,而控件是不提供鼠标点击事件的,下面介绍如何通过继承类来实现Splitter的鼠标点击事件。
  定义新类TSplitterX:
  type
    TSplitterX=class(TSplitter)
    private
    public
    end;
  以上从TSplitter类继承的新类TSplitterX,我们在其中什么也不添加。

  然后定义TSplitterX类的一个全局变量var spli:TSplitterX。在窗体的OnCreate事件中,动态生成TSplitterX类的控件:
    spli:=TSplitterX.Create(self);
    spli.Parent:=self;
    spli.name:='spli';
    spli.width:=10;
    spli.OnClick:=spliClick;
  动态生成的控件spli中我们用spli.OnClick:=spliClick;定义了它的鼠标点击事件,注意,由于spli是属于TSplitterX,所以才会提供OnClick事件,如果是TSplitter类,则是不提供的,这的确是有点奇怪,因为TSplitterX不过继承了TSplitter而已,其它什么东西也没添加。
  新添加控件的OnClick事件的实现过程为spliClick,因此需要在TForm中定义它:procedure spliClick(sender:TObject);然后在其中你可以添加任何代码。
  以下给出这个例子的完整源码如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  { Private declarations }
  procedure spliClick(sender:TObject);
public
  { Public declarations }
end;

type
TSplitterX=class(TSplitter)
private
public
end;

var
Form1: TForm1;
spli:TSplitterX;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
spli:=TSplitterX.Create(self);
spli.Parent:=self;
spli.name:='spli';
spli.width:=10;
spli.Color:=clRed;
spli.OnClick:=spliClick;

end;

procedure TForm1.spliClick(Sender:TObject);
begin
Showmessage('you clicked me');
end;

end.


  其实不仅是TSplitter,其它控件也都可以通过这一方法来实现功能扩展,在新的控件类你也可以定义拦截消息,如:
  type
      TlistViewX=class(TlistView)
      private
        procedure wmPaint(var msg:Tmessage);message WM_PAINT;
      public
      end;
    其中定义了消息拦截过程wmPaint用于拦截消息WM_PAINT,实现过程wmPaint如下:
    procedure TListViewX.wmPaint(var msg:Tmessage);
    begin
      //添加代码
    end;
     
  从以上例子可以看出只要从一个控件类继承一个新类以后, 这个新类所能提供的属性方法就远多于原来的控件类,只要你熟悉动态控件的生成及其事件定义就可以很灵活地运用它。



关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
70.3125