《桌面显示移动字幕示范delphi5》由会员分享，可在线阅读，更多相关《桌面显示移动字幕示范delphi5（17页珍藏版）》请在金锄头文库上搜索。
1、桌面显示移动字幕示范（D5）非本人独创，只是网上找的资料拼凑而成。因为大多语焉不详，所以调试好拿来分享，尽量缩短走弯路。因为显示的字幕在桌面上，SPX 截不到图（可能不会用？），所以没有效果图。居然 QQ 可以，专业不如业余的啊。运行后窗体如图以下为程序。因为不能上传附件，所有内容均以文本方式在此（由于使用了GDI，可以自己网上找个 For D5 的，把 PAS 和INCIGDIPlus.pas、IGDIPlusAPI.inc文件放项目同一目录下即可），所以篇幅较长。本程序这样使用了 GDI 显示、程序最小化后托盘显示小图标、无边框窗体等技术手段。设计时主窗体显示窗体运行时候主窗口运行时候显示
2、效果（是自右向左移动的）/项目文件program Captions;usesForms,Unit1 in Unit1.pas Form1,Unit20 in Unit20.pas Form2;$R *.RESbeginApplication.Initialize;Application.CreateForm(TForm2, Form2);Application.CreateForm(TForm1, Form1);Application.Run; end./显示字幕窗体 Form1object Form1: TForm1Left = 463Top = 318VertScrollBar.Visib
3、le = FalseBorderIcons = BorderStyle = bsToolWindowCaption = Form1ClientHeight = 39ClientWidth = 285Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = MS Sans SerifFont.Style = FormStyle = fsStayOnTopOldCreateOrder = FalsePrintScale = poNoneWindowStat
4、e = wsMinimizedOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Timer1: TTimerEnabled = FalseInterval = 200OnTimer = Timer1TimerLeft = 32Top = 8end end/主窗体 object Form2: TForm2Left = 414Top = 296BorderIcons = biSystemMenu, biMinimizeBorderStyle = bsSingleCaption = 字幕设置ClientHeight = 363C
5、lientWidth = 336Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = MS Sans SerifFont.Style = Icon.Data = 0000010001002020100000000000E80200001600000028000000200000004000000001000400000000008002000000000000000000000000000000000000000000000000800000800
6、00000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007800000000000000088000000000000007800004444440008800000000000000007804400000044880000000000
7、0000000074008888880040000000000000000000408888118888040000000000000000040881888888188040000000000000004088888888888888040000000000000040888888888898880400000000000004088188888889881880400000000000040888888888988888804000000000000408888888B9888888804000000000000408888000BB0888888040000000000004071180
8、00BB088811804000000000000407888888BB888888804000000000000408788888BB888888804000000000000407818888BB8881888040000000000000407788888B88888804000000000000004078781888888888040000000000000004078788888188804000000000000000884078781188880488000000000008088804007878880040888080000000F780800044000000440008
9、0888000000F7780000004444440000007788000000FF7780000000000000000FF7780000000FFF000000000000000000FFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFCFFFE7FF87FFC3FFC38187FFE0000FFFF0001FFFF8001FFFF0 0
10、00FFFE00007FFE00007FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFE00007FFE00007FFE00007FE400002FC0000007C0600603C0F81F03C07FFE03E0FFFF07F1FFFF8FFFFFFFFFFFFFFFFFFFFFFFFFOldCreateOrder = FalseOnClose = FormCloseOnCreate = FormCreateOnShow = FormShowPixelsPerInch = 96TextHeight = 13
11、object Label1: TLabelLeft = 67Top = 32Width = 65Height = 25AutoSize = FalseCaption = 间隔时间endobject Label2: TLabelLeft = 67Top = 80Width = 57Height = 17AutoSize = FalseCaption = 显示时间endobject Label3: TLabelLeft = 136Top = 112Width = 65Height = 17AutoSize = FalseCaption = 显示内容endobject ComboBox1: TCom
12、boBoxLeft = 155Top = 32Width = 105Height = 21Style = csDropDownListItemHeight = 13TabOrder = 0OnChange = ComboBox1ChangeItems.Strings = (0.5 小时1 小时1.5 小时2 小时2.5 小时3 小时)endobject ComboBox2: TComboBoxLeft = 155Top = 80Width = 105Height = 21Style = csDropDownListItemHeight = 13TabOrder = 1OnChange = Co
13、mboBox2ChangeItems.Strings = (5 分钟10 分钟15 分钟)endobject Memo1: TMemoLeft = 24Top = 136Width = 289Height = 129Lines.Strings = (请输入需要显示的字)ReadOnly = TrueScrollBars = ssBothTabOrder = 2endobject Edit1: TEditLeft = 24Top = 280Width = 281Height = 21MaxLength = 40TabOrder = 3endobject Button1: TButtonLeft
14、= 40Top = 320Width = 81Height = 25Caption = 添加TabOrder = 4OnClick = Button1Clickendobject Button2: TButtonLeft = 208Top = 320Width = 75Height = 25Caption = 删除TabOrder = 5OnClick = Button2Clickendobject Timer1: TTimerInterval = 60000OnTimer = Timer1TimerLeft = 296Top = 48endobject Timer2: TTimerEnabl
15、ed = FalseInterval = 60000OnTimer = Timer2TimerLeft = 296Top = 96end end /字幕窗体 unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls,IGDIPlus;const/定义常量WS_EX_LAYERED = $80000;AC_SRC_OVER = $0;AC_SRC_ALPHA = $1;AC_SRC_NO_PREMULT_ALPHA = $1;AC_SRC_NO_ALPHA = $2;AC_DST_NO_PREMULT_ALPHA = $10;AC_DST_NO_ALPHA = $20;LWA_COLORKEY = $1;LWA_ALPHA = $2;ULW_COLORKEY = $1;ULW_ALPHA = $2;ULW_OPAQUE = $4;sw=800;sh=350; typeTForm1 = class(TForm)Timer1: TTimer;procedure FormCreate(Sender: TObject);procedure Timer1Timer(Sender: TObject);priv
