delphi - GetTitleBarInfo 函数不返回值

Question

我以这种方式使用 GetTitleBarInfo 函数

procedure TForm1.Button1Click(Sender: TObject);
var
  TitleInfo       : TTitleBarInfo;
begin
  ZeroMemory(@TitleInfo, SizeOf(TitleInfo));
  GetTitleBarInfo(Handle, TitleInfo);
  ShowMessage(IntToStr(TitleInfo.rcTitleBar.Left));
end;

但是 GetTitleBarInfo 没有返回值(所有值都为零)，我缺少什么？

Answer 1

GetTitleBarInfo 的文档函数指出您必须将 cbSize 成员设置为sizeof(TTitleBarInfo) 在调用该函数之前，还必须检查该函数返回的 bool 结果。

procedure TForm1.Button1Click(Sender: TObject);
var
  TitleInfo       : TTitleBarInfo;
begin
  ZeroMemory(@TitleInfo, SizeOf(TitleInfo));
  TitleInfo.cbSize:=SizeOf(TitleInfo);
  if GetTitleBarInfo(Handle, TitleInfo) then
   ShowMessage(IntToStr(TitleInfo.rcTitleBar.Left));
end;