DELPHI控件:DELPHI文字滚屏控件(SliderMemo)计算机二级考试

文章作者 100test 发表时间 2009:04:30 03:54:26
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　unit SliderMemo.
　　interface
　　uses Windows, Messages, SysUtils, Classes, Graphics,Controls,StdCtrls,Dialogs,
　　ExtCtrls.
　　type
　　TSliderMemo = class(TMemo)
　　private
　　FOnLoop:TNotifyEvent.
　　FTopNow:integer.
　　FScrollSpeed: integer.
　　FTimer: TTimer.
　　FCanvas :TControlCanvas.
　　procedure SetScrollSpeed (Value: integer).
　　procedure wmPAINT(var Message: TMessage). message WM_PAINT.
　　procedure WMEraseBkgnd(var Message: TWMEraseBkgnd). message WM_ERASEBKGND.
　　procedure toPAINT.
　　procedure Timer(Sender: TObject).
　　protected
　　procedure KeyDown(var Key: Word.　Shift: TShiftState). override.
　　procedure MouseDown(Button: TMouseButton. Shift: TShiftState. X, Y: Integer). override.
　　public
　　constructor Create (AOwner: TComponent). override.
　　destructor　Destroy . override.
　　Procedure　 Start.
　　Procedure　 Stop.
　　published
　　property ScrollSpeed: integer read FScrollSpeed write SetScrollSpeed default 10.
　　property OnLoop: TNotifyEvent read FOnLoop write FOnLoop.
　　end.
　　procedure Register.
　　implementation
　　var
　　Initial:boolean.
　　TxtHeight:integer.
　　procedure Register.
　　begin
　　RegisterComponents(’Geert’, [TSliderMemo]).
　　showmessage(’The TSliderMemo component is made by LinDesheng　2002-07’).
　　end.
　　{ ******************************************************* }
　　procedure TSliderMemo.wmPAINT(var Message: TMessage).// Repaint the control ...
　　begin
　　inherited.
　　toPaint.
　　end.
　　{ ******************************************************* }