是否可以在自己定义组件中使用tTimer， 比如我定义一个方法active并激活Ttimer 开始工作。 谢谢！

unit TimeLabel;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, extctrls;    type
  TTimeLabel = class(TLabel)
  private
    FTimer: TTimer;        procedure TimerTimer(Sender: TObject);
  protected      public
    property Timer: TTimer read FTimer;        constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('XYZ', [TTimeLabel]);
end;    { TTimeLabel }    constructor TTimeLabel.Create(AOwner: TComponent);
begin
  inherited;      FTimer := TTimer.Create(Self);
  FTimer.OnTimer := TimerTimer;
  FTimer.Enabled := False;
end;    destructor TTimeLabel.Destroy;
begin
  FTimer.Free;      inherited;
end;    procedure TTimeLabel.TimerTimer(Sender: TObject);
begin
  Caption := FormatDateTime('YYYY/MM/DD hh:nn:ss', Now);
end;    end.

使用:

uses TimeLabel;    procedure TForm1.Button1Click(Sender: TObject);
var myTimeLabel: TTimeLabel;
begin
  myTimeLabel := TTimeLabel.Create(Self);
  myTimeLabel.Parent := Self;
  myTimeLabel.Left := 0;
  myTimeLabel.Top := 0;      myTimeLabel.Timer.Interval := 1000;
  myTimeLabel.Timer.Enabled := True;
end;

--- --<-<-<@ 發表人 - hagar 於 2003/08/14 10:32:23

...   public     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published     property Timer: TTimer read FTimer; { Published declarations } end; .... 你要是将这个属性现实出来效果更好哦< > 我也是这样做的，不知为什么会出错< >；至少我知道这样方法是对的，我想肯定是我那儿遗漏了 多谢,

hagar兄: 我这儿还有相关问题,我想对您来说因该是小问题,如果有空麻烦解答一下了