非常紧急,分不是问题!在线等,窗口最前问题。(300)

S

skyccf

Unregistered / Unconfirmed
GUEST, unregistred user!
现要开发一个字幕滚动软件,效果是不管打开什么窗口,都不能覆盖该字幕的滚动显示。目前难点是当打开视频播放软件,当选择视频全屏时,该字幕无法在最前显示了!可加qq联系:37415461(请注明:字幕)
 
public procedure Createparams(Var Params:TCreateParams);override;procedure TFRM_PDF.Createparams(var Params: TCreateParams);begin inherited; Inherited CreateParams(Params); With Params do begin EXStyle := ExStyle or WS_EX_TOPMOST; WndParent := GetDesktopWindow; end;end;
 
Andyli 谢谢,不过你试下就知道了,根本达不到我要的效果
 
直接取桌面窗体的Handle,然后赋给一个TCanvans的Handle,然后用这个Canvans就可以在窗面上画画了,这样绝对是在最顶层的,以前我见过这样的例子,你可以网上找找
 
视频播放软件人家是DirectDraw到物理显示内存上,除非他自己的控件,否则你只有随时把字幕窗口提前为顶部窗口了,Timer时间中,MoveWindowEx TOP_MOST
 
定时器里用 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);就行了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
643
import
I
顶部 底部