如何实现如netants的下载小窗口,要求有源码,以前讨论不详尽.(100分)

W

wonday

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现如netants的下载小窗口,要求有源码.
小窗口始终在最上面,可再其内放置控件.
 
该form设置为 fsStayOnTop 不就可以了?
 
主窗口可以,其他窗口不可以,我想自己建立一个窗口(非主窗口),使他始终在上面
 
发了个示例,看看吧,希望满意,满意就加分. HeHe....
 
下面3步都要做:
1、FormStyle:=fsStayOnTop
2、重栽CreateParams方法:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams( Params);
Params.WndParent:=0;
end;

3、BorderStyle:=bsToolWindow (避免任务条上多一个标题)
 
最重要的一条:
SetWindowPos(Form2.handle,HWND_TOPMOST,-1,-1,-1,-1,SWP_NOMOVE or SWP_NOSIZE);
将窗口置为最上层HWND_TOPMOST。
 
最重要的一条: Params.WndParent:=0;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
979
SUNSTONE的Delphi笔记
S
S
回复
0
查看
799
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部