关于一个OnTop Form（悬浮）的问题？内详。。。。(50分)

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #1

procedure TScanCommForm.CreateParams(var Params:TCreateParams);
begin
inherited;
with Params do
begin
Style:=Params.Style xor WS_DLGFRAME;
WndParent:=0;
end;
end;
procedure TScanCommForm.FormCreate(Sender: TObject);
begin
Width:=180;
Height:=180;
SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
属性formStyle:=fsStayOnTop

我通过以上方法将form悬浮，但出现一问题，我无法解决：
当其它窗体用ShowModal显示后，悬浮窗体虽然还是OnTop，但是会变成无效状态，
那么怎么在其它窗体ShowModal后,悬浮窗体依然是“活动”的？

 

黑

黑影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #2

试一下在onHide 事件中处理一下

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #3

to 黑影:能不能说详细一点，

 

L

li_zhifu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #4

其它窗体用Show而不用Showmodal;

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #5

to li_zhifu：呵呵，问题是我这里有的其它窗体肯定是用ShowModal，，

 

L

li_zhifu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #6

用ShowModal显示的窗体会禁止本应用程序的其它窗体

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #7

to li_zhifu：但网络蚂蚁的悬浮窗不知是怎么做的，好像另外？？？

 

L

li_zhifu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #8

悬浮窗用Show

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #9

一个建议，如此ShowModal你的窗体

var
WindowList: Pointer;
begin
WindowList := DisableTaskWindows(YouWantShowForm.Handle);
try
//YouWantShowForm.Create(Application);//如果无须创建
YouWantShowForm.Show;
//干你想干的。
finally
EnableTaskWindows(WindowList);
YouWantShowForm.Close;//or YouWantShowForm.Hide;

 

孔

孔明.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #10

设置FormStyle：＝fsStayOnTop

 

D

dodo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #11

procedure TForm1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
begin
SetWindowPos(Form1.handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE Or SWP_NOMOVE);
//使窗口总处于桌面最上层
inherited;
end;
我一直都这么用的，很不错的!

 

浦

浦欣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #12

我用Spy++看了它们的不同,FlashGet浮动窗口的Parent为nil,而用以上方法创建的窗口Parent
不为nil,
谁有办法使创建的窗口的Parent为nil,可能就行了!

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #13

to 浦欣，我来一试

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #14

把悬浮窗做在一个Dll里，或者做成一个独立的应用程序。

 

浦

浦欣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #15

做成DLL与主程序的交互就不方便了,而且FlashGet并没有写到DLL中,说明一定可以实现.

Delphi程序员主要的缺点就是对Windows底层东西了解太少,估计让一个写VC的很容易就写
出来了!!!
要不,为什么现在招Delphi的越来越少了!大家要努力哦!(我自己也要努力!),不然以后我们
就没饭吃了!!!!!!!!!!

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #16

拷，我想总有办法的，，，，

只是俺对api不熟

 

梦

[梦龙]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #17

private
{ Private declarations }
//创建拖放窗口
procedure Createparams(Var Params:TCreateParams);override;
//拖放窗口的移动
procedure WMNCHitTest( var Msg : TWMNCHitTest );message wm_NCHitTest;
………………
//在窗口上按下鼠标移动窗口
procedure TfrmDarg.WMNCHitTest( var Msg : TWMNCHitTest );
begin
if GetAsyncKeyState(VK_LButton) < 0 then
Msg.Result := HTCaption
else
Msg.Result := HTCLient;
end;
//创建窗口
procedure TfrmDarg.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Params do
begin
//Width:=40;
//Height:=40;
Style :=WS_CAPTION;
Style :=WS_POPUP;
EXStyle:=ExStyle or WS_EX_TOPMOST;// OR WS_EX_ACCEPTFILES or WS_DLGFRAME or WM_NCHITTEST;
WndParent:=GetDeskTopWindow();
end;
end;

 

浦

浦欣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #18

在使用WndParent:=GetDesktopWindow()后,我用Spy++查看的结果
(其中Extended Styles均相同)
FlashGet:
Window Styles:
WS_POPUP WS_VISIBLE WS_CLIPSIBLINGS WS_OVERLAPPED

Custom Form普通情况)
Window Styles:
WS_POPUP WS_VISIBLE WS_CLIPSIBLINGS WS_OVERLAPPED
Custom Form当主窗体中有ShowModal的窗体时)
Window Styles:
WS_POPUP WS_VISIBLE WS_DISABLED WS_CLIPSIBLINGS WS_OVERLAPPED
也就是说当主窗体ShowModal其它窗体时,将这个窗体设为Disabled,而FlashGet就没这个问题
问题就在这儿!

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #19

FlatForm = TFlatForm.Create(nil);

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-09

• #20

参见 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1559548

悬浮窗口对WM_ENABLE消息进行处理，当一个窗体的enabled改变时，windows会给他发这条消息
private
procedure EnableChanged(var Msg: TMessage); message WM_ENABLE;
.....
implementation
procedure TLittlebox.EnableChanged(var Msg: TMessage);
begin
EnableWindow(handle, true);
inherited;
end;

这样很快很方便的搞定！ []