桌面显示移动字幕示范Delphi5.docVIP

桌面显示移动字幕示范（D5） 非本人独创，只是网上找的资料拼凑而成。因为大多语焉不详，所以调试好拿来分享，尽量缩短走弯路。 因为显示的字幕在桌面上，SPX截不到图（可能不会用？），所以没有效果图。居然QQ可以，专业不如业余的啊。 运行后窗体如图 以下为程序。因为不能上传附件，所有内容均以文本方式在此（由于使用了GDI，可以自己网上找个For D5的，把PAS和INC〔IGDIPlus.pas、IGDIPlusAPI.inc〕文件放项目同一目录下即可），所以篇幅较长。 本程序这样使用了GDI显示、程序最小化后托盘显示小图标、无边框窗体等技术手段。 设计时主窗体 显示窗体 运行时候主窗口 运行时候显示效果（是自右向左移动的） //项目文件－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ program Captions; uses Forms, Unit1 in Unit1.pas {Form1}, Unit20 in Unit20.pas {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, Form1); Application.Run; end. //显示字幕窗体 Form1－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ object Form1: TForm1 Left = 463 Top = 318 VertScrollBar.Visible = False BorderIcons = [] BorderStyle = bsToolWindow Caption = Form1 ClientHeight = 39 ClientWidth = 285 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = MS Sans Serif Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False PrintScale = poNone WindowState = wsMinimized OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Timer1: TTimer Enabled = False Interval = 200 OnTimer = Timer1Timer Left = 32 Top = 8 end end //主窗体－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ object Form2: TForm2 Left = 414 Top = 296 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 字幕设置 ClientHeight = 363 ClientWidth = 336 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = MS Sans Serif Font.Style = [] Icon.Data = { 0000010001002020100000000000E80200001600000028000000200000004000 0000010004000000000080020000000000000000000000000000000000000000 0000000080000080000000808000800000008000800080800000C0C0C0008080 F0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 00000000000000000000000000000000000000000000