如何让一个窗体不接受任何消息?(1分)

D

delphi_lsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #21

我曾经做过一个假的透明窗体，使用四个边做起来的，中空，哈哈！

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #22

你就只是要显示是吧？那不要做成窗口嘛，
GetDeskTopWindow
GetWindowDC
然后你就画就是了

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #23

呵呵，用application.onmessage自己搞定吧

 

诸

诸葛白痴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #24

对,用application.onmessage将任何消息都返回以屏蔽

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #25

以前有这样一个帖子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=648162
不要光看标题。

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #26

我现在正在学习消息. 呵呵

 

D

doublefishrhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #27

GZ

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #28

接受答案了.

 

9

940801

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #29

？？？ 1分？

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #30

对,就是一分. 因为没有答案. 如果你有.我给你200分

 

9

940801

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #31

我服你了， n 个人测试过了，你居然还说没答案？！
Huzzz 兄真有先见之明阿，
这点分我不稀罕，我往外白送都是300，300的送，[!]

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #32

那你给我200分吧！
大家在这说了半天，结果你最后一句没有答案就全给否定了!
当然，还是跟我上面的回答一样，要Win2000或WinXP下才有效（Delphi6新提供的那两个属性也是Win2000下才有效的）
看你点了Button1后还能不能在Form上输入：
const
; WS_EX_LAYERED = $80000;
; WS_EX_TRANSPARENT = $20;
; LWA_ALPHA = $2;

procedure TForm2.Button1Click(Sender: TObject);
begin
; SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
; SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
; SetWindowLong(Handle, GWL_EXSTYLE, OldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT);
end;

end.

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #33

好像各位还没有理解xwings的意思,各位的意思是做一个透明窗体,可是做一个透明窗体有什么用呢?
这年头谁不会做透明窗体啊?他的意思是一个半透明的窗体,然后在这个窗体上面的所有操作,都会直接传给
被他遮住的下一个窗体,不是仅仅一个透明就可以做了的.说得够明白了吧.

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #34

那我就跟你说得更明白好了：
//设置窗体的透明度， 255为不透明， 0为完全透明，我下面用的是不透明窗体
; SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
//设置WS_EX_TRANSPARENT的EXSTYLE，窗体不接受任何消息，除了在任务栏上能激活Application
//外，你选不中窗体上的任何控件，就象不存在这个窗体一样。 如果只是要透明效果就不
//需要WS_EX_TRANSPARENT标记。
; SetWindowLong(Handle, GWL_EXSTYLE, OldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT);

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-27

• #35

谢谢 xianjun ;你的代码我测试过了, 除了哪个 oldstyle 不能用. 和要用jedi的api unit 之外. 完全达到我的要求.

当初你只说一句APi就搞定, 但是我怎么知道是哪一个API呢?

如果你早把代码贴上来.我就给你分了.
不过既然你回答了.我就不食言.来这里拿分吧. http://211.101.4.25/delphibbs/dispq.asp?lid=601166

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-27

• #36

呵呵， 不好意思
OldStyle: Integer;
OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);