Index
» Empathy Jukebox : Blob b21893 / Standalone_Components / TTextScroller component / testform.pas
unit testform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,textscroller, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a : ttextscroller; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin a:=ttextscroller.create(form1); a.top:=100; a.left:=100; a.width:=400; a.height:=50; a.color:=clblack; a.font.color:=clred; a.speed:=100; a.text:='Mary had a little lamb'; a.running:=true; end; end.