任务栏可见吗？

发布于 2024-12-17 18:15:48 字数 472 浏览 1 评论 0原文

我需要知道任务栏是否已分配，但已选中“自动隐藏任务栏”并且任务栏暂时隐藏。我有一个函数，如果已分配任务栏，则返回任务栏的高度；如果未分配，则返回零。

但是，如果已设置 Windows“自动隐藏”选项，该函数仍会返回任务栏的高度，尽管只有在光标移动到屏幕的下边缘时任务栏才可见。

当我设定 Image.Height:=Screen.Height-MyTaskbarHeight 它设置图像高度，就好像任务栏始终可见一样。

在伪代码中，我需要的是

if Taskbar.Assigned then
if Taskbar.AutoHide.Checked then // Assume it is hidden
    Image.Height:=Screen.Height else
    Image.Height:=Screen.Height-MyTaskbarHeight;

有什么建议吗？

谢谢

原文

I need to know if the Taskbar is Assigned but the "Auto Hide Taskbar" has been checked and the Taskbar is temporarily hidden. I have a Function the returns the Height of the Taskbar if it has been assigned or zero if not.

But, if the Windows "Auto Hide" option has been set, the Function still returns the height for the Taskbar, although it is not visible until the cursor moves to the bottom edge of the screen.

When I set
Image.Height:=Screen.Height-MyTaskbarHeight
it sets the image height as if the task bar was visible all of the time.

In pseudo-code, what I need is

if Taskbar.Assigned then
if Taskbar.AutoHide.Checked then // Assume it is hidden
    Image.Height:=Screen.Height else
    Image.Height:=Screen.Height-MyTaskbarHeight;

Any suggestions?

Thanks

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

黎夕旧梦 2024-12-24 18:15:48

TAppBarData 在 ShellAPI 中定义。

var
  ABData : TAppBarData;
  State: Cardinal;
begin
  ABData.cbSize := sizeof(ABData);
  State := SHAppBarMessage(ABM_GETSTATE, ABData);
  Result := (State and ABS_AUTOHIDE) = ABS_AUTOHIDE;
end;

TAppBarData is defined in ShellAPI.

var
  ABData : TAppBarData;
  State: Cardinal;
begin
  ABData.cbSize := sizeof(ABData);
  State := SHAppBarMessage(ABM_GETSTATE, ABData);
  Result := (State and ABS_AUTOHIDE) = ABS_AUTOHIDE;
end;

回复收藏 0 原文

在你怀里撒娇 2024-12-24 18:15:48

您可以使用 SHAppBarMessage 函数

Uses
  ShellApi;

function  IsTaskbarAutoHideOn : Boolean;
Var
 ABData : TAppBarData;
begin
  ABData.cbSize := SizeOf(ABData);
  Result:= (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE)<>0;
end;


function GetTaskBarRect(var ARect: TRect): Integer;
var
    ABData: TAppBarData;
begin
  ABData.cbSize := SizeOf(ABData);
  if SHAppBarMessage(ABM_GETTASKBARPOS, ABData) <> 0 then
  Result := ABData.uEdge;
  ARect  := ABData.rc;
end;

you can use the SHAppBarMessage function

Uses
  ShellApi;

function  IsTaskbarAutoHideOn : Boolean;
Var
 ABData : TAppBarData;
begin
  ABData.cbSize := SizeOf(ABData);
  Result:= (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE)<>0;
end;


function GetTaskBarRect(var ARect: TRect): Integer;
var
    ABData: TAppBarData;
begin
  ABData.cbSize := SizeOf(ABData);
  if SHAppBarMessage(ABM_GETTASKBARPOS, ABData) <> 0 then
  Result := ABData.uEdge;
  ARect  := ABData.rc;
end;

回复收藏 0 原文

~没有更多了~