unit1.pas

DELPHI滚动字幕, DELPHI滚动字幕,DELPHI滚动字幕

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FontW:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  rgn : HRGN;
  FontS : string;
  FontH : integer;
begin
  Canvas.Font.Name := '黑体';
  Canvas.Font.Style:=[fsBold];
  Canvas.Font.Size := 20;
  FontS:='大家好！！！明日科技又出新书了。《Delphi程序开发技巧大全》        ';
  FontH:=Canvas.TextHeight(FontS);
  FontW:=Canvas.TextWidth(FontS);
  left:=screen.Width;
  top:=screen.Height-FontH-50;
  Width:=FontW;
  Color:=clBlue;
  FormStyle:=fsStayOnTop;
  BeginPath(Canvas.Handle);   //开始捕获 Canvas上绘制的轮廓
  SetBkMode(Canvas.Handle, TRANSPARENT);  //设置字体的背景透明
  Canvas.TextOut(20, 20, FontS);
  EndPath(Canvas.Handle);   //结束捕获
  rgn := PathToRegion(Canvas.Handle);   //把路径转换成区域
  SetWindowRgn(Handle, rgn, true);  //将形成的不规则区域赋给本窗体以形成一个不规则窗体
  Timer1.Interval:=50;
  Timer1.Enabled :=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  left:=left-1;
  if left<FontW*(-1) then
  begin
    Timer1.Enabled :=false;
    Visible:=false;
    left:=screen.Width;
    Visible:=true;
    Timer1.Enabled :=true;
  end;
end;

end.