Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现


本文整理自网络,侵删。

 浮动窗体的实现 

http://blog.tianya.cn/blogger/post_show.asp?BlogID=68097&PostID=806089

需要一个这样的窗体:
a:没有标题栏; b:可以改变大小; c:不在任务栏上显示图标; d:如果不是主窗体,它的最小化不受主窗体的限制; e:在最顶端显示

处理:
a:不在任务栏出现的,只要设置窗体的属性为ToolWindow就可以了.
b:要想使窗体脱离主窗体的限制,必须修改它的ParentWnd,使用SetParent显然有些问题.可以通过重载CreateParams方法来实现.
如下:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
//Params.Style := (Params.Style or ws_Popup) and (not ws_Caption);
Params.Style := Params.Style and (not WS_CAPTION) and (not WS_BORDER);
Params.Style := Params.Style or WS_POPUP or WS_THICKFRAME or WS_CLIPCHILDREN;
end;




在DELPHI中如何开发类似《网络蚂蚁》中悬浮窗口?

http://topic.csdn.net/t/20010802/11/220206.html


unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TfrmPop = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
end;

var
frmPop: TfrmPop;

implementation

{$R *.dfm}


procedure TfrmPop.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
WndParent := 0;
end
end;

procedure TfrmPop.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$F012,0);
end;

end.
=======================================================================

我试成功了。
以下为主窗体的代码:
uses unit2;

procedure TForm1.Show(Sender:TObject);
begin
Form2.Show;
end;

//Form2的代码
protected
procedure CreateParams(var Params:TCreateParams);override;

procedure TForm2.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent:=0;
Params.ExStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Width:=40;
Height:=40;
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$F012,0);
end;

//将FORM2的STYLE属性设为bsNone;还要将Form2的FormStyle属性设为fsStayOnTop,使佗总在最前。

相关阅读 >>

Delphi twebbrowser get html source after ajax load

Delphi cef4Delphi 常用设置

DelphiDelphi提升进程权限为debug权限

Delphi unicode转汉字 ,支持自动过滤非 unicode编码

Delphi webbrowser载入自定义html内容并显示

Delphi从内存流加载图片

Delphi 10.4改进 内联变量声明

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi winapi: inflaterect - 改变矩形大小

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...