引言: 各位先進好... 請教一下....(因為繼承的關念...實在是搞不清楚) 如果我想要建立一個新元件...而此元件是繼承TButton.... 請問...這個新元件可以自訂一個同樣的屬性Caption....但是此屬性的讀寫 ...我要自行控制.....也就是說新元件的所有屬性及事件都和TButton相同... 但是...Caption部份..則是由新元件中來控管.... 這樣子行得通嗎? 如果...不行的話...又該如何做呢? 不管是否行得通...可否煩請大家簡單舉個例子呢? 多謝!!

引言: 可以啊override掉就可以啊 @@~~飛翔在天際的精靈~~@@

引言: 各位先進好... 請教一下....(因為繼承的關念...實在是搞不清楚) 如果我想要建立一個新元件...而此元件是繼承TButton.... 請問...這個新元件可以自訂一個同樣的屬性Caption....但是此屬性的讀寫 ...我要自行控制.....也就是說新元件的所有屬性及事件都和TButton相同... 但是...Caption部份..則是由新元件中來控管.... 這樣子行得通嗎? 如果...不行的話...又該如何做呢? 不管是否行得通...可否煩請大家簡單舉個例子呢?

unit xxButton;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TxxButton = class(TButton)
  private
    { Private declarations }
    function GetCaption: TCaption;
    procedure SetCaption(const Value: TCaption);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property Caption: TCaption read GetCaption write SetCaption;
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('Samples', [TxxButton]);
end;    { TxxButton }    function TxxButton.GetCaption: TCaption;
begin
  Result := inherited Caption;
  // 您要作的事
end;    procedure TxxButton.SetCaption(const Value: TCaption);
begin
  inherited Caption := Value;
  // 您要作的事
end;    end.

引言: 這是可以的! 程式碼如下

unit xxButton;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TxxButton = class(TButton)
  private
    { Private declarations }
    function GetCaption: TCaption;
    procedure SetCaption(const Value: TCaption);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property Caption: TCaption read GetCaption write SetCaption;
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('Samples', [TxxButton]);
end;    { TxxButton }    function TxxButton.GetCaption: TCaption;
begin
  Result := inherited Caption;
  // 您要作的事
end;    procedure TxxButton.SetCaption(const Value: TCaption);
begin
  inherited Caption := Value;
  // 您要作的事
end;    end.

謝謝您... 果真是可以了..... 不過還要煩請您再幫一下下.... (