movinglabel.~pas

很好地delphi书籍源码

unit MovingLabel;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TMovingLabel = class(TLabel)
  private
    FMovingStep:Word;
    FInterval:Word;
    procedure Moving(Sender: TObject);
  protected
  public
    PTimer: TTimer;
    constructor Create (AOnwer:TComponent);override;
  published
   procedure Ready(AOnwer: TComponent);
   property MovingStep:Word read FMovingStep write FmovingStep
      default 5;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponent', [TMovingLabel]);
end;

constructor TMovingLabel.Create(AOnwer: TComponent);
begin
  inherited Create(AOnwer);
  FMovingStep:=5;
  FInterval:=1000;
end;

procedure TMovingLabel.Moving(Sender: TObject);
begin
  if Left>Parent.Width then
    Left:=0
  else
    Left:=Left+FMovingStep;
end;

procedure TMovingLabel.Ready(AOnwer: TComponent);
begin
  PTimer:=TTimer.Create(AOnwer);
  PTimer.OnTimer:=Moving;
  PTimer.Interval:=FInterval;
  PTimer.Enabled:=false;
end;

end.