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

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

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

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    就可以透明了{:5_92:}

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了
页: [1]
查看完整版本: 关于小甲鱼delphi视频中的那个在屏幕上跳动的字幕的小程序