void __fastcall TForm1::ProgressBar1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ProgressBar1->Position = X*ProgressBar1->Max/ProgressBar1->Width;
}

설명 안 달아줘도 되겠죠?

그럼..

볼랜드 어려버..ㅠ 님이 쓰신 글 :
: 폼 위에.. 한 ProgressBar를 올려두고.. 작업을 하고 싶습니다..
:
: 그 ProgressBar에서 하고 싶은 작업은..
:
: ----------------------------------------
: |                                                                   |
: |                                                                   |
: ----------------------------------------
:
: 이런 상태에서 마우스를
:
: ----------------------------------------
: |                                   이곳                         |
: |                                                                   |
: ----------------------------------------
: 이곳이라는 곳을 클릭하면,
:
: ----------------------------------------
: |■■■■■■■■■■■■■■                                |
: |■■■■■■■■■■■■■■                                |
: ----------------------------------------
: 이렇게 채워지게 끔 하고 싶습니다..
:
: 한마디로 ProgressBar 에서 어떠한 위치를 클릭하면 그 위치까지 Position 혹은 Progress 가게끔 하고 시퍼요.
:
: 어떤  ProgressBar를 쓰면 될까요?  .. 저 작업의 코딩도 알려주시면 ㄳㄳ
:
: 수고하세요