간단한 예에 의해 TProgressBar에서의 사용을 이해합니다. 다음과 같이 싶어서 파일 절차는

부 Unit4; 
 
인터페이스는 
 
사용 
  윈도우, 메시지, SysUtils를, 변형, 클래스, 그래픽, 컨트롤, 양식, 
  대화 상자, ComCtrls; 
 
입력 
  TForm4 = 클래스 (TForm을) 
    진행 상황을 : TProgressBar을; 
    절차 FormCreate (보내는 사람 : TObject의);
  개인 
    { 개인 선언 } 
  공개 
    { 공공 선언 } 
  끝 ; 
 
VAR 
  Form4 : TForm4; 
 
구현 
 
{ $의 R * .DFM } 
 
절차 TForm4.FormCreate (발신자 : TObject의);
VAR 
  I : 정수; 
시작
  시도 
    progress.Max을 : = 100 ;
    에 대한 I : = 0  에  (100) - 1  할 
    시작 
      Application.ProcessMessage를을; 
      progress.Position : = 나는; 
      절전 모드 ( 50 );
    끝 ;
  마지막으로 
    // progress.Max : = 0; 
  끝 ; 
  
끝 ; 
 
끝 .

다음과 같이 파일을 FRAM :

객체 Form4을 : TForm4 
  왼쪽 = 0 
  최고 = 0 
  캡션 = ' Form4 ' 
  ClientHeight = 300 
  ClientWidth = 635 
  색 = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = - 11 
  Font.Name = ' 굴림 ' 
  Font.Style을 = [] 
  OldCreateOrder = 거짓 
  에서 OnCreate =FormCreate 
  PixelsPerInch = 96 
  문자 높이 = 13 개 
  개체 진행 : TProgressBar 
    왼쪽 = 0 
    최고 = 283 
    폭 = 635 
    높이 = 17 
    정렬 = alBottom 
    TabOrder = 0 
  끝 
끝

도시 된 바와 같이, 실제 결과 :

 

 위의 절차를 TProgressBar를 사용하는 것이 간단 할 수있다.