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

episome 2004-09-08 10:52:35
得到桌面的句柄
请问怎么添加一个或替换他的 ListView 控件
tks
...全文
122 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
不可能,除非你重新做个窗口代替桌面!

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧