我，拿出200分征求答案(200分)

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #1

各路高手，小生近日遇上难题，实在感觉无力解决，特拿出200分征求答案。

本人想写一个程序，是桌面锁，就是用自己的程序界面替代Windows的桌面，
可是有个问题无法解决，就是：当激活我的界面时，我的程序总是会掩盖其它
程序窗体，小生也想了想，可是windows的桌面就不会有掩盖其它程序窗口了;-< ，
也就是说：windows桌面总是被我们的程序踩在脚下（哈哈！！）
2　　
　　请问：我的界面如何才能达到windows桌面的效果？

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #2

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
public
procedure SetPos(var msg: TWMWINDOWPOSCHANGED); message WM_WindowPosChanging;
end;

var Form1: TForm1;

implementation
{$R *.DFM}
procedure TForm1.SetPos(var msg: TWMWINDOWPOSCHANGED);
begin
msg.WindowPos.hwndInsertAfter:=1;
end;
end.

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #3

不错.

 

Z

zengr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #4

要做成透明才行的

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #5

这样就透明了:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMEraseBKGND(var Message:TMessage); message WM_ERASEBKGND;

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMEraseBKGND(var Message:TMessage)
begin
Message.Result := 0;
end;
end.

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #6

>>

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-28

• #7

多人接受答案了。