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

[flyknight2]

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

[vv_www]

GZ

[hety]

没那么复杂，你只需要把主程序放在系统盘中，那个悬浮窗口设为stayontop，然后在悬浮窗口中加入随意拖动的代码:
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message wm_NCHitTest;

implementation
procedure TForm1.WMNCHitTest(var Msg:TWMNCHitTest);
begin
inherited;
if (htClient = Msg.Result) then Msg.Result := htCaption;
end;

[xlq1068]

to hety(hety):
》》只需要把主程序放在系统盘中，
如何放请指明，谢谢

[sundayboys]

to hety(hety):
将Form设置为stayontop，并不能保证始终在上边的。不过你的那段代码移动窗体是管用的。

[xlq1068]

>>你只需要把主程序放在系统盘中
能否解释一下如何做

[happy1123]

??

[xlq1068]

问题就是如何移动form2,
所有的代码都没有做到这一点

[xlq1068]

>>

[sundayboys]

要移动Form2是吧，等晚上回来贴出来，偶现在要陪同学学电脑去：（不去还不行：（

[gototop99]

gigi

[jackylee]

gz

[xlq1068]

>>

[xlq1068]

>>

[xlq1068]

to hety(hety):
》》只需要把主程序放在系统盘中，
如何放请指明，谢谢

[lifenqidelphi]

gz

[soff]

还没有得出答案吗？小弟试了一下下面的程序，没有问题，始终最上，不会在任务栏显示标题，主窗口最小化时悬浮窗口不受影响。

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.

[soff]

发现一个问题，当我把主窗口hide到托盘以后，任务栏还是有标题，实在分特。

[Ormus]

有一个现成控件,可惜我忘了在哪里下载了?

[soff]

你指的是悬浮窗口？

[xlq1068]

>>