向桌面添加(替换) ListView控件

episome 2004-09-08 10:52:35
得到桌面的句柄
请问怎么添加一个或替换他的 ListView 控件
tks
...全文
88 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
episome 2004-09-09
昨天回去试了, 多谢饭桶.
不过怎么屏蔽 win+D 最小化等问题.
还有我是通过按钮事件触发的.怎么通过按钮还原回来呢?

偶菜的很那.
回复
呵呵,饭桶以前就是万象公司出来的哦!!~~~
回复
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控件,就成功了
现在的很多网管软件都是用这种方法,如万象、美萍
回复
episome 2004-09-08
也可以,请问如何?
回复
fei19790920 2004-09-08
不可能,除非你重新做个窗口代替桌面!
回复
发帖
Windows SDK/API
创建于2007-08-02

1152

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2004-09-08 10:52
社区公告
暂无公告