包装一个时钟类，显示日期和时间。从TPanel继承，把TTimer作为成员数据

Question

请帮帮忙，把实现过程写一下！万分感谢！

Answer 1

呵呵，刚好差不多：
http://www.csdn.net/develop/read_article.asp?id=20251
http://www.csdn.net/develop/read_article.asp?id=20252
http://www.csdn.net/develop/read_article.asp?id=20262
http://www.csdn.net/develop/read_article.asp?id=20263

Answer 2

unit DateTimePanel;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;type
  TDateTimePanel = class(TPanel)
  private
    { Private declarations }
    FTime     : TTimer;
    FActive   : Boolean;
    FInterval : integer;
  protected
    { Protected declarations }
    procedure  SetActive(bAct:Boolean);
    procedure  SetInterval(iInt:integer);    procedure  FTimer(Sender: TObject);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property Active : Boolean  read FActive   write SetActive   default false;
    property Interval: integer read FInterval write SetInterval default 1000;
  end;procedure Register;implementationconstructor TDateTimePanel.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
  FTime := TTimer.Create(nil);
  FTime.OnTimer :=  FTimer;
  FTime.Enabled :=  false;  self.Caption := DateTimeToStr(Now);
  self.FActive := false;
  self.FInterval := FTime.Interval;
end;destructor TDateTimePanel.Destroy;
begin
  FTime.Enabled := false;
  FTime.Free;
  Inherited Destroy();
end;procedure TDateTimePanel.FTimer(Sender: TObject);
begin
  Self.Caption := DateTimeToStr(Now);
end;procedure TDateTimePanel.SetInterval(iInt:integer);
begin
  FInterval := iInt;  if FActive then
  begin
    SetActive(false);
    FTime.Interval := FInterval;
    SetActive(true);
  end
  else
    FTime.Interval := FInterval;
end;procedure TDateTimePanel.SetActive(bAct:Boolean);
begin
  FActive := bAct;
  FTime.Enabled := FActive;
end;procedure Register;
begin
  RegisterComponents('Standard', [TDateTimePanel]);
end;end.
刚刚写的