未声明的标识符：创建等待表单时的'TStatusWindowHandle'

Question

我想在我的应用中显示等待表单。但是当我想跑的时候我有一个错误：

procedure TForm1.Button1Click(Sender: TObject);
var
  status: TStatusWindowHandle;
begin
  status := CreateStatusWindow('Please Wait...');
  try
    Sleep(2000);
  finally
    RemoveStatusWindow(status);
  end;

end;

[错误] Unit1.pas（27）：未声明的标识符：'TStatusWindowHandle'

Answer 1

public function getRange($currentWeight, $maxWeight){ $range_base = intval(($currentWeight * 100) / $maxWeight / 10) * 10; if($range_base >= 0 && $range_base <= 100 && $currentWeight<=$maxWeight){ if($range_base == 100) { $range_base = $range_base - 10; } return 'Range' . $range_base .'-' . ($range_base +10); }else{ return false; // Out of range } } 函数取自@AndreasRejbrant的答案：What's the easiest way to write a please wait screen with Delphi?。

CreateStatusWindow()声明是：

TStatusWindowHandle

链接的答案建议将包含类型声明的TStatusWindowHandle = type HWND; 函数放入单独的单元中。然后将该单元包含在uses子句中。 这是应该在这里做的，以避免编译器错误。