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 android权限

Delphi idhttp调用 rest

Delphi {$pointermath on} 方便指针操作的编译指令

Delphi 关闭sql server 数据库所有使用连接

Delphi 调整应用程序内存大小

Delphi 截取两个字符之间的内容

Delphi record，两种声明方式

Delphi tchart使用经验小结

Delphi encodeuricomponent

Delphi 将程序加裁到启动项

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

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