关于小甲鱼delphi视频中的那个在屏幕上跳动的字幕的小程序

我的下划线 · 发表于 2014-10-31 09:40:07

那个程序的字幕在跳动的时候总是有个白底怎么去掉白底或者说背景让它只显示文字的跳动呢？　还有就是那个程序也是一个窗口　我打开别的窗口程序　就会把它盖住了　怎么让他永远在屏幕上跳动　让别的程序不能盖住它　除非我手动关掉　不然一直跳动。两个问题　能回答一个　也帮帮忙啊　　谢谢了 O]013F$G7S%~E~YJY%OH]D5.jpg

qq351317878 · 发表于 2014-10-31 09:40:08

procedure TForm1.FormCreate(Sender: TObject);
var
ExStyle: DWORD;
begin
Form1.Color:= clRed;
ExStyle:= GetWindowLong(Form1.Handle, GWL_EXSTYLE);
ExStyle:= ExStyle or WS_EX_LAYERED;
SetWindowLong(Form1.Handle, GWL_EXSTYLE, ExStyle);
SetLayeredWindowAttributes(Form1.Handle, Form1.Color, 0, 0 or LWA_COLORKEY);
end;

复制代码

qq351317878 · 发表于 2014-10-31 10:31:17

将Transparent属性设为true 就可以透明了

qq351317878 · 发表于 2014-10-31 10:34:04

窗口最前用一个time 控件设置时钟周期为 100或者50
在time 里面用下面这句代码
SetWindowPos(handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW)//这句是窗口置顶

qq351317878 · 发表于 2014-10-31 10:35:41

两个问题回答好了，有问题提问

我的下划线 · 发表于 2014-11-1 11:26:54

qq351317878 发表于 2014-10-31 10:31
将Transparent属性设为true 就可以透明了

不行我试过了将Transparent属性设为true 还是不行白色的底还是有的我要的是那种直接在桌面上显示文字的其他什么都不要......

我的下划线 · 发表于 2014-11-1 11:38:56

qq351317878 发表于 2014-10-31 10:31
将Transparent属性设为true 就可以透明了

不行我把那个属性改成你说的了还是不行白色的底还是在我要只看到文字你可以自己试试.......

我的下划线 · 发表于 2014-11-1 11:39:44

qq351317878 发表于 2014-10-31 10:31
将Transparent属性设为true 就可以透明了

我改了行不通的白色的底还是在你可以自己试试

qq351317878 · 发表于 2014-11-1 11:39:49

可以啊，不知道你怎么弄的，没有白色的低啊。估计是你弄错了
看下面图片

qq351317878 · 发表于 2014-11-1 11:41:46

我的下划线发表于 2014-11-1 11:39
我改了行不通的白色的底还是在你可以自己试试

你看我上面发的效果图估计是你弄错了，你不会拿edit 来设置吧，要用label 控件

我的下划线 · 发表于 2014-11-1 11:41:57

qq351317878 发表于 2014-11-1 11:39
可以啊，不知道你怎么弄的，没有白色的低啊。估计是你弄错了
看下面图片

这个我知道你那是有个背景图但是我那没有设置背景就是直接一个label 按照你那样做是可以透明的 ....

qq351317878 · 发表于 2014-11-1 11:45:32

我的下划线发表于 2014-11-1 11:41
这个我知道你那是有个背景图但是我那没有设置背景就是直接一个label 按照你那样做是可以透明的 ... ...

那你把窗体设置透明就ok了

账号		自动登录	找回密码
密码			立即注册

关于小甲鱼delphi视频中的那个在屏幕上跳动的字幕的小程序

最佳答案