delphi - 如何让窗体像任务栏一样与屏幕边缘对齐？

Question

我正在构建一个“仪表板”应用程序，即使其他应用程序最大化，该应用程序也始终在任何给定监视器的任何边缘可见。我不一定需要它“总是在最上面”(尽管我会)，但我需要将它作为我自己的桌面工具栏成为屏幕的一部分，就像 Windows 任务栏一样。即使应用程序最大化，窗口也位于该区域内，从而使该窗口始终可见(并且桌面区域更小)。

如何使应用程序的主窗体像这样与屏幕边缘对齐？

PS - 我不需要所有额外的棘手处理的答案，例如屏幕分辨率的更改......我只需要知道如何使其首先对齐为“屏幕的一部分”。

Answer 1

您正在寻找Application Desktop Toolbars ，这是 Windows 任务栏内部使用的。它涉及创建一个具有特定样式的窗口，正确设置它，然后使用SHAppBarMessage与其进行通信。 。

它可能会变得相当复杂，但是有一些免费组件可以通过源代码获得(一个位于 Torry ，另一个位于 DelphiPages )，它们具有基本的 shell 可以帮助您入门。

来自第二个链接的 AppBar.pas 单元的示例(根据链接的文本，它是带有源代码的免费软件 - 我用它来创建应用程序启动器任务栏，完成带有从 .lnk 文件读取的应用程序图标和说明的按钮):

type
  TAppBarMessage = (abmNew, abmRemove, abmQueryPos, abmSetPos, abmGetState, 
                    abmGetTaskBarPos, abmActivate, abmGetAutoHideBar, 
                    abmSetAutoHideBar, abmWindowPosChanged);

  TAppBarEdge = (abeLeft, abeTop, abeRight, abeBottom, abeUnknown, abeFloat);

...

function TAppBar.AppBarMessage(abMessage: TAppBarMessage; 
  abEdge: TAppBarEdge; lParam: LPARAM; bRect: Boolean; var rc: TRect): UINT;
var
  abd: TAppBarData;
begin
  // Initialize an APPBARDATA structure
  abd.cbSize := sizeof(abd);
  abd.hWnd := Handle;
  abd.uCallbackMessage := WM_APPBARNOTIFY;
  abd.uEdge := Ord(abEdge);

  if bRect then
    abd.rc := rc
  else
    abd.rc := Rect(0, 0, 0, 0);

  abd.lParam := lParam;
  Result := SHAppBarMessage(Ord(abMessage), abd);

  // If the caller passed a rectangle, return the updated rectangle
  if bRect then
    rc := abd.rc;
end;