delphi 获取标题栏高

本文整理自网络，侵删。

 
delphi 获取标题栏高

procedure TForm1.Button9Click(Sender: TObject);
var
  frameh,captionh,menuh: Integer;
  str:string;
begin
//边框高
  frameh := GetSystemMetrics(SM_CXFRAME);
//标题高
  captionh := GetSystemMetrics(SM_CYCAPTION);
//菜单高
  menuh:=GetSystemMetrics(SM_CYMENU);
  str:=  inttostr( frameh)+' '+inttostr(captionh)+' '+inttostr(menuh) ;
  memo1.text:=str;
end;

本文链接：https://blog.csdn.net/ozhy111/article/details/81452490
 

相关阅读 >>

Delphi 获取本机 hostname ip address

Delphi中编写参数个数可变的函数

Delphi 的编码与解码(或叫加密与解密)函数

Delphi 获得idhttp redirect后的url

Delphi原生方法取得文件的md5

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi 控制台应用程序 hello world

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

Delphi重写一个字符串分割函数

Delphi xe10 手机内部系统相关操作（手机信息、震动、剪贴板、键盘、电话、拨号）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取标题栏高