1152
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
episome 2004-09-09
昨天回去试了, 多谢饭桶.
不过怎么屏蔽 win+D 最小化等问题.
还有我是通过按钮事件触发的.怎么通过按钮还原回来呢?
偶菜的很那.
不过怎么屏蔽 win+D 最小化等问题.
还有我是通过按钮事件触发的.怎么通过按钮还原回来呢?
偶菜的很那.
立志做一个佳娃~ 2004-09-08
呵呵，饭桶以前就是万象公司出来的哦!!~~~
zdq801104 2004-09-08
学习！fei19790920(饭桶的马甲（抵制日货））大哥，厉害！
fei19790920 2004-09-08
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMWindowPosChanging( var Message: TWMWindowPosChanging);Message WM_WindowPosChanging;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//设置为最底层
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
//无标题栏
self.BorderStyle :=bsNone ;
//覆盖桌面
Align :=alClient ;
end;
procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
with Message.WindowPos^ do flags:=flags or SWP_NOZORDER;
Message.result:=0;
end;
end.
然后在窗口上面放一个ListView控件，就成功了
现在的很多网管软件都是用这种方法，如万象、美萍
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMWindowPosChanging( var Message: TWMWindowPosChanging);Message WM_WindowPosChanging;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//设置为最底层
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
//无标题栏
self.BorderStyle :=bsNone ;
//覆盖桌面
Align :=alClient ;
end;
procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
with Message.WindowPos^ do flags:=flags or SWP_NOZORDER;
Message.result:=0;
end;
end.
然后在窗口上面放一个ListView控件，就成功了
现在的很多网管软件都是用这种方法，如万象、美萍
episome 2004-09-08
也可以,请问如何?
fei19790920 2004-09-08
不可能，除非你重新做个窗口代替桌面！
