未定義の識別子：待機中のフォームを作成するときに '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' CreateStatusWindow()機能がここ@AndreasRejbrantで答えから取られ

Answer 1

：What's the easiest way to write a please wait screen with Delphi?。

TStatusWindowHandle宣言がある：

TStatusWindowHandle = type HWND; 

連結答えは別個のユニットに型宣言を含むCreateStatusWindow機能を入れ示唆する。そして、ユニットをuses節に含めます。 これはコンパイラエラーを回避するためにここでも行われていたはずです。