如何用delphi设置任务栏的高度？

ouki617 2012-02-15 12:22:57
任务栏初始高度为30，我想设置高一点，但是要在程序中设置，而不是手动设置！
...全文
207 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
代码跳动 2012-02-22
  • 打赏
  • 举报
 回复
setwindowpos(FindWindow(nil,'Form1'),HWND_TOP,0,0,900,222, SWP_SHOWWINDOW );

对自身可以， 任务栏好像不行。
代码跳动 2012-02-22
  • 打赏
  • 举报
 回复
setwindowpos(FindWindow(nil,'xxxx'),0,0,555,900,222, SWP_SHOWWINDOW );
lzg827 2012-02-15
  • 打赏
  • 举报
 回复
应该用到API函数，不过狂搜一把也没有找到。
绑定了
Delphi 获取菜单高度、标题栏高度、边框高度函数GetSystemMetrics
项目中需要获取不同分辨率德菜单高度，必应搜索了一下，可以用GetSystemMetrics函数实现，代码如下：欢迎加入Delphi知识局QQ群:32422310 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl...
Delphi 窗体无边框全屏不遮挡任务栏-最完美的解决方法
1、{声明 拦截最大化，最小化命令，从新设置屏幕高度} procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo; 2、{截获系统消息，然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度}procedure TForm1.WMGetMinMaxInf...
Delphi 获取屏幕分辨率与Windows任务栏的高度
showmessage('本机分辩率：'+ inttostr(screen.WorkAreaWidth) +' * '+inttostr(screen.WorkAreaHeight));//高: screen.WorkAreaHeight;//宽: screen.WorkAreaWidth;第一种：需要引用Windows单元。第二种：需要引用Windows单元。第三种：要引用ShellAPI单元。...
Delphi中三种方法获取Windows任务栏的高度
第一种：需要引用Windows单元ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION))); 第二种：需要引用Windows单元function GetSystemTaskBarHeight:Integer
delphi 获取任务栏高度
var  TrayWnd: HWnd; //任务栏句柄  Rec    : TRect;begin  TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄  GetWindowRect(TrayWnd, Rec);               //获取任务栏尺寸  Showmessage('任务栏的高度是:' + IntToStr(Rec.Bot...
Windows SDK/API

1,184

社区成员

22,326

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章