如何使用Delphi保留桌面的一个边缘?像Vista Sidebar那样的东西.
解决方法
你想要的是一个
application desktop toolbar
您必须使用ShellAPI单元中声明的TAppBarData对象和SHAppBarMessage 函数.
看这个简单的例子.
type TApplicationTaskBar = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end; var ApplicationTaskBar: TApplicationTaskBar; implementation {$R *.dfm} Uses ShellAPI; procedure TApplicationTaskBar.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW; Params.Style := (Params.Style OR WS_POPUP) AND (NOT WS_DLGFRAME); //Remove title Bar end; procedure TApplicationTaskBar.FormCreate(Sender: TObject); var MyTaskBar : TAppBarData; begin GlassFrame.Enabled :=True;//Activate Glass,optional GlassFrame.SheetofGlass :=True;//optional Left:=0; Top :=0; Width := 300; Height:= Screen.Height; FillChar(MyTaskBar,SizeOf(TAppBarData),0); MyTaskBar.cbSize := SizeOf(TAppBarData); MyTaskBar.hWnd := Handle; MyTaskBar.uCallbackMessage := WM_USER+777; //Define my own Mesaage MyTaskBar.uEdge := ABE_LEFT; MyTaskBar.rc := Rect(0,Width,Height); SHAppBarMessage(ABM_NEW,MyTaskBar); SHAppBarMessage(ABM_ACTIVATE,MyTaskBar); SHAppBarMessage(ABM_SETPOS,MyTaskBar); Application.ProcessMessages; end; procedure TApplicationTaskBar.FormDestroy(Sender: TObject); var MyTaskBar : TAppBarData; begin FillChar(MyTaskBar,0); MyTaskBar.cbSize := SizeOf(TAppBarData); MyTaskBar.hWnd := Self.Handle; SHAppBarMessage(ABM_Remove,MyTaskBar); end;
检查此链接
> SHAppBarMessage
> ABM_ACTIVATE
> ABM_SETPOS
> ABM_NEW
再见.
原文地址:https://www.jb51.cc/delphi/102053.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。