如何創建從少數其他組件繼承的Delphi組件？

Question

教程，我發現如何創建delphi組件很好，但他們只使用現有的組件之一作爲對象來繼承動作。像這樣的東西

unit CountBtn; 

interface 

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

type 
TCountBtn = class(TButton) 
    private 
    FCount: integer; 
    protected 
    procedure Click;override; 
    public 
    procedure ShowCount; 
    published 
    property Count:integer read FCount write FCount; 
    constructor Create(aowner:Tcomponent); override; 
end; 

procedure Register; 

implementation 

procedure Register; 
begin 
RegisterComponents('Mihan Components', [TCountBtn]); 
end; 

constructor TCountBtn.Create(aowner:Tcomponent); 
begin 
inherited create(Aowner); 
end; 

procedure Tcountbtn.Click; 
begin 
inherited click; 
FCount:=FCount+1; 
end; 

procedure TCountBtn.ShowCount; 
begin 
Showmessage('On button '+ caption+' you clicked: '+inttostr(FCount)+' times'); 
end; 

end. 

但是，如果我需要使用少量元素的組件，該怎麼辦？可以說，我有Button和Edit字段。然後在按鈕上點擊編輯欄中的文字應該與按鈕上的文字相同。我開始做它這個樣子，但好像它是不是要去工作，因爲我想：

unit TestComp; 

interface 

uses 
    System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, Vcl.ExtCtrls; 

type 
    TUiCompU = class(TCustomControl) 
    private 
    { Private declarations } 
    FButton: TButton; 
    FEdit: TEdit; 

    protected 
    { Protected declarations } 
    procedure Paint; override; 
    //wrong! 
    procedure FButton.Click;override 
    public 
    { Public declarations } 
    constructor Create(AOwner: TComponent); override; 
    published 
    { Published declarations } 
    //wrong! 
    property ButtonText: String read FButton.Caption write FButton.Caption; 
    end; 

procedure Register; 

implementation 

procedure Register; 
begin 
    RegisterComponents('Ui', [TUiCompU]); 
end; 

{ TUiCompU } 

constructor TUiCompU.Create(AOwner: TComponent); 
begin 
    inherited; 
    Width := 200; 
    Height := 50; 

    FButton := TButton.Create(Self); 
    FButton.SetSubComponent(True); 
    FButton.Parent := Self; 
    FButton.Top := 8; 
    FButton.Left := 50; 
    FButton.Width := 35; 
    FButton.Name := 'Button'; 

    FEdit := TEdit.Create(Self); 
    FEdit.SetSubComponent(True); 
    FEdit.Parent := Self; 
    FEdit.Top := 8; 
    FEdit.Left := 84; 
    FEdit.Width := 121; 
    FEdit.Name := 'Edit'; 
end; 

procedure TUiCompU.Paint; 
begin 
    Canvas.Rectangle(ClientRect); 
end; 

end. 

我應該如何在這裏補充Click程序，這是realte點擊按鈕？有沒有關於如何使用他人制作好組件的好教程？ （我需要創建像幻燈片組件btw）。 謝謝，對不起我的英文。

Answer 1

您可以編寫子組件事件的方法，但它有一個很大的弱點;如果您發佈這些子組件，則有可能會有人通過自己的方法來竊取您的綁定：

type 
    TUiCompU = class(TCustomControl) 
    private 
    FEdit: TEdit; 
    FButton: TButton; 
    procedure ButtonClick(Sender: TObject); 
    procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    public 
    constructor Create(AOwner: TComponent); override; 
    end; 

implementation 

constructor TUiCompU.Create(AOwner: TComponent); 
begin 
    inherited; 

    FButton := TButton.Create(Self); 
    ... 
    FButton.OnClick := ButtonClick; 

    FEdit := TEdit.Create(Self); 
    ... 
    FEdit.OnKeyDown := EditKeyDown; 
end; 

procedure TUiCompU.ButtonClick(Sender: TObject); 
begin 
    // do whatever you want here 
end; 

procedure TUiCompU.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
    // do whatever you want here 
end;