如何作到taskbar的效果(150分)

pegasus · 1999-08-09

AppBar和Dock是不同的，还要不要我翻译？ 或者我直接把英文版的东西贴在这里？

DNChen · 1999-08-09

请继续翻译，谢谢，我英文很烂，*^_^*

SeaSky · 1999-08-09

To DNChen : 我看到pegasu 做的那么辛苦, 先打点预付款吧.

pegasus · 1999-08-09

Appbar 事件通知消息： 当有会影响AppBar的位置和外观的事件发生的时候，系统会给AppBar发送消息，消息是通过 应用程序自定义的消息发送的。当应用程序注册AppBar的时候填写了通知消息的ID, 系统的通 知消息就用那个ID发给应用程序，通知的具体内容是用wParam参数给出的 AppBar在下列情况发生的时候会收到系统发来的 ABN_POSCHANGED 通知消息: 1.当任务栏的大小，位置或者可视状态变化的时候 2.当别的AppBar被增加到同一边的时候 3.当同一边的AppBar被移动或者删除了的时候 AppBar必须再次用ABM_QUERYPOS 和 ABM_SETPOS向系统确认自己的新的大小和位置，如果 允许发生变化的话，再次用MoveWindow把自己移动到被确认的位置上去 当任务栏的"自动隐藏"("Auto hide")或者"总在最前面"("Always on top")状态变化了的时候, 系统 会给AppBar发送 ABN_STATECHANGE 通知消息 当一个全屏幕运行的程序启动或者最后一个全屏幕运行的程序结束的时候，系统会给AppBar 应用程序发送 ABN_FULLSCREENAPP 通知消息. 消息的 lParam 指出了应用程序启动或者结束. 如果是应用程序启动，AppBar应该把自己的窗口显示顺序(Z-Order)设置为最底层. 当最后一个 全屏幕运行的程序结束的时候，AppBar应当恢复原先的显示顺序. 当用户选择了任务栏的"层叠窗口"("Cascade"), "水平平铺窗口"("Tile Horizontally"), 或者"垂直 平铺窗口"("Tile Vertically")的时候，系统会给AppBar应用程序发送 ABN_WINDOWARRANGE 通知消息. 通知消息会发送两次：第一次在重排列窗口之前，消息的lParam参数为True(非0值); 第二次在重排列窗口完成之后，消息的lParam参数为False(0). AppBar自己可以要求任务栏不要重新排列自己的窗口. 只要在lParam为True的时候把自己的窗 口隐藏起来，lParam为False的时候再显示出来就行了. 如果AppBar这样做了，那么就不需要 向系统发送ABM_QUERYPOS 和 ABM_SETPOS AppBar 消息. 一些例子程序如下，(未完待续，等我下了版之后晚上在Delphi4上面调试通过再给大家，免得 再犯错误，

pegasus · 1999-08-09

To Nuke: 您的要求恐怕办不到，除非您截获别的程序发送到系统的TaskBar消息

sherman · 1999-08-09

to DNChen,我可没有电子版的书

DNChen · 1999-08-10

seasky，我没有办法给予付啊，否则就给了。 pegasus做的真的很辛苦啊，呵呵，我看看情况，如果这点分数不够，我再加

pegasus · 1999-08-10

Xixi, 我的分够多的啦！不用再加了。。 晚上贴出剩下的3小段程序。。。

pegasus · 1999-08-18

Unit AppBar; Interface Uses Windows, ShellApi; function RegisterAccessBar(hwndAccessBar: HWND; bRegister : Boolean; nAppBarCallBackMsgID : DWORD):boolean; procedure AppBarQuerySetPos(uEdge: longInt; var rc : TRECT; var ABD : APPBARDATA); Implementation function RegisterAccessBar(hwndAccessBar: HWND; bRegister : Boolean; nAppBarCallBackMsgID : DWORD):boolean; var   abd : APPBARDATA; begin     // Specify the structure size and handle to the appbar.     abd.cbSize := sizeof(APPBARDATA);     abd.hWnd := hwndAccessBar;     result :=TRUE;     if (bRegister) then       begin         // Provide an identifier for notification messages.         abd.uCallbackMessage := nAppBarCallBackMsgID;         // Register the appbar.         if (SHAppBarMessage(ABM_NEW, abd)<>0) then           begin             result := false;           end       end     else       begin         // Unregister the appbar.         SHAppBarMessage(ABM_REMOVE, abd);       end; end; procedure AppBarQuerySetPos(uEdge: longInt; var rc : TRECT; var ABD : APPBARDATA); var   iHeight : Integer;   iWidth  : Integer; begin   iHeight := 0;   iWidth  := 0;   abd.rc    := rc;   abd.uEdge := uEdge;   // Copy the screen coordinates of the appbar's bounding   // rectangle into the APPBARDATA structure.   if ((uEdge = ABE_LEFT) or (uEdge = ABE_RIGHT)) then     begin         iWidth := abd.rc.right - abd.rc.left;         abd.rc.top := 0;         abd.rc.bottom := GetSystemMetrics(SM_CYSCREEN);     end   else     begin         iHeight := abd.rc.bottom - abd.rc.top;         abd.rc.left := 0;         abd.rc.right := GetSystemMetrics(SM_CXSCREEN);     end;     // Query the system for an approved size and position.     SHAppBarMessage(ABM_QUERYPOS, abd);     // Adjust the rectangle, depending on the edge to which the     // appbar is anchored.     case (uEdge) of         ABE_LEFT:             abd.rc.right := abd.rc.left + iWidth;         ABE_RIGHT:             abd.rc.left := abd.rc.right - iWidth;         ABE_TOP:             abd.rc.bottom := abd.rc.top + iHeight;         ABE_BOTTOM:             abd.rc.top := abd.rc.bottom - iHeight;     end;     // Pass the final bounding rectangle to the system.     SHAppBarMessage(ABM_SETPOS, abd);     // Move and size the appbar so that it conforms to the     // bounding rectangle passed to the system.     MoveWindow(abd.hWnd, abd.rc.left, abd.rc.top,         abd.rc.right - abd.rc.left,         abd.rc.bottom - abd.rc.top, TRUE); End; begin end.

pegasus · 1999-08-18

这一段是在AppBar的程序里面要用的 Uses ShellApi, AppBar; var g_uSide:longInt; // record which side my AppBar resides. // AppBarPosChanged - adjusts the appbar's size and position. // pabd - address of an APPBARDATA structure that contains information //     used to adjust the size and position procedure AppBarPosChanged(var abd : APPBARDATA); var   rc       : TRECT;   rcWindow :TRECT;   iHeight  :integer;   iWidth   :Integer; Begin   rc.top := 0;   rc.left := 0;   rc.right := GetSystemMetrics(SM_CXSCREEN);   rc.bottom := GetSystemMetrics(SM_CYSCREEN);   GetWindowRect(abd.hWnd, rcWindow);   iHeight := rcWindow.bottom - rcWindow.top;   iWidth := rcWindow.right - rcWindow.left;   case (g_uSide) of     ABE_TOP:       rc.bottom := rc.top + iHeight;     ABE_BOTTOM:       rc.top := rc.bottom - iHeight;     ABE_LEFT:       rc.right := rc.left + iWidth;     ABE_RIGHT:       rc.left := rc.right - iWidth;   end;   AppBarQuerySetPos(g_uSide, rc, abd); end; // 这个CallBack处理过程 handle住系统发来的AppBar通知消息 // AppBarCallback - processes notification messages sent by the system. // hwndAccessBar - handle to the appbar // uNotifyMsg - identifier of the notification message // lParam - message parameter procedure AppBarCallback(hwndAccessBar : HWND; uNotifyMsg : UINT; lParam : LongInt); var   abd :APPBARDATA;   uState: LongInt;   hWndTmp : HWnd; begin   abd.cbSize := sizeof(abd);   abd.hWnd := hwndAccessBar;   case (uNotifyMsg) of     ABN_STATECHANGE:       Begin       // Check to see if the taskbar's always-on-top state has       // changed and, if it has, change the appbar's state       // accordingly.       uState := SHAppBarMessage(ABM_GETSTATE, abd);       if (ABS_ALWAYSONTOP and uState)<>0 then         Begin           hWndTmp := HWND_TOPMOST         End       else         hWndTmp := HWND_BOTTOM;       SetWindowPos(hwndAccessBar,          hWndTmp,          0, 0, 0, 0,          SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);       end;     ABN_FULLSCREENAPP:       Begin         // A full-screen application has started, or the last full-         // screen application has closed. Set the appbar's         // z-order appropriately.         if (lParam<>0) then           Begin             if (ABS_ALWAYSONTOP and uState)<>0 then               Begin                 hWndTmp := HWND_TOPMOST               End             else               hWndTmp := HWND_BOTTOM;             SetWindowPos(hwndAccessBar, hWndTmp,                     0, 0, 0, 0,                     SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);           End         else           Begin             uState := SHAppBarMessage(ABM_GETSTATE, abd);             if (uState and ABS_ALWAYSONTOP)<>0 then               begin                 SetWindowPos(hwndAccessBar, HWND_TOPMOST,                         0, 0, 0, 0,                         SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);               end;           End;       End;     ABN_POSCHANGED:       Begin         // The taskbar or another appbar has changed its         // size or position.         AppBarPosChanged(abd, g_uSide);       End   End; End;

DNChen · 1999-08-22

从我作起，不再平均分配！

如何作到taskbar的效果(150分)

pegasus

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

sherman

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

Similar threads