如何让窗体浮在所有的窗体上面。不论此程序是否具有焦点(30分)

A

apiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

注意：
; ; 不能有任何窗体覆盖到上面，包括鼠标

 

C

ctx62

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #2

用setWindowPos这个API函数，具体用法你查一下MSDN

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #3

重载窗体的CreateParams
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
; inherited CreateParams( Params);
; Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
; Params.WndParent := 0;
end;

 

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #4

鼠標不是窗口﹐而且它是"總統”沒有比它更“大”的了﹗

 

淡

淡淡的笑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #5

呵呵..可以监视MOUSE的坐标.如果 X,Y 位于 你的窗口范围之内,,就让MOUSE消失

 

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #6

不用监视鼠标的坐标吧，处理一下Form的OnMouseMove应该可以了！

 

A

apiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #7

谢谢大家的关心。
zm30 的方法是有效的