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 - 右滚动文字

Delphi fdmemtable1建立缓存表

Delphi 简化版的inputquery 中文版输入对话框

Delphi 之前解析串口数据

Delphi显示jpg、png、gif图片

Delphi操作access数据库

Delphi中url的汉字编码

Delphi 使用google translate实现tts

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi源码基础源码-按下回车取得焦点

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

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