Delphi 悬浮窗口、浮动窗口的实现

源：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,使佗总在最前。