對Delphi控制元件的一點改良(三) (轉)

worldblog發表於2007-12-12
對Delphi控制元件的一點改良(三) (轉)[@more@]

Parent屬性的應用。大家常常忽視Parent屬性的存在。那好就讓他發發威吧。

看看這個好東東:

unit Edit1;

interface

uses
  , 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屬性列表竟然能夠列出它本身的控制元件。

不過想解決很容易,自己去作一個屬性編輯器就行了。

 


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-992121/,如需轉載,請註明出處,否則將追究法律責任。

相關文章