저는 Browser 를 통해 html을 부르고 html에서 '보기'를 누르면 특정 pdf를

새 브라우저를 띄우지 않고 보여주는 작업을 하고 있습니다.
(아래 코드 참조)

그런데 pdf의 사이즈가 크다보니 서버에서 다운로드할때는 게이지를

이용해서 작업진행을 보여줄 수 있습니다.

그런데 PC에서 pdf reader로 올려질때 까지

어떻게 하면 화면에 "잠시만 기다려주세요."라는

메세지를 보여줄 수 있을 까요?


procedure TfrmBrowser.FormShow(Sender: TObject);
begin
        WebBrowser1.Navigate('http://1.1.1.1:8080/test/view.html');
     end;
end;


procedure TfrmBrowser.WebBrowser1DownloadBegin(Sender: TObject);
begin

        SBStop.Enabled := True;
end;

procedure TfrmBrowser.WebBrowser1DownloadComplete(Sender: TObject);
begin
        SBStop.Enabled := False;
end;

procedure TfrmBrowser.SBExitClick(Sender: TObject);
begin
        close;
end;

procedure TfrmBrowser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action := caFree;
end;

procedure TfrmBrowser.sbPrevClick(Sender: TObject);
begin
        WebBrowser1.goBack;
end;

procedure TfrmBrowser.SBNextClick(Sender: TObject);
begin
        WebBrowser1.goForward;
end;

procedure TfrmBrowser.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
        Gauge1.MaxValue := ProgressMax;
        Gauge1.Progress := Gauge1.Progress + Progress;
        SBStop.Enabled := False;
end;