首页 > 编程 > Delphi > 正文

对Delphi控件的一点改良(三)

2019-11-18 18:42:19
字体:
来源:转载
供稿:网友
 

Parent属性的应用。大家常常忽视Parent属性的存在。那好就让他发发威吧。

看看这个好东东:

unit Edit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TSParent = class(TEdit)
  PRivate
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property Parent;
  end;

procedure Register;

implementation

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

end.

安装这个控件。新建一个工程。

在Samples页上拖拽一个TSParent控件。你会说这不就是一个TEdit控件吗?

你再看看,他多出了一个Parent属性。这下可了不得了,它的容器竟可以在设计期间随意制定,不管别的控件有没有容器属性他都能够把它当作容器。TPanel、TEdit、TMemo她简直像一个无处不能存在的魔鬼。

该控件有两个缺点。1)Parent属性列表中不能列出Form。原因吗自己去想。2)Parent属性列表竟然能够列出它本身的控件。

不过想解决很容易,自己去作一个属性编辑器就行了。


上一篇:改良控件-Delphi自带控件Bug的消除

下一篇:对Delphi控件的一点改良(二)

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
学习交流
热门图片

新闻热点

疑难解答

图片精选

网友关注