unit PrntProg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TPrntProgDlg = class(TForm)
    Bevel: TBevel;
    lblStatus: TLabel;
    lblTitle: TLabel;
    lblPageNumDesc: TLabel;
    lblPageNumber: TLabel;
  private
    { Private declarations }
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  PrntProgDlg: TPrntProgDlg;

implementation

{$R *.DFM}

procedure TPrntProgDlg.WMNCHitTest(var Msg: TWMNCHitTest);
begin
     {Don't let them resize the progress dialog.}
     inherited;
     with Msg Do
          if (Result = HTTop) or
             (Result = HTTopLeft) or
             (Result = HTTopRight) or
             (Result = HTLeft) or
             (Result = HTRight) or
             (Result = HTBottom) or
             (Result = HTBottomLeft) or
             (Result = HTBottomRight) then Result:=HTNowhere;
end;

end.