윈도프로지셔의 체인, 버추얼 메소드 테이블의 패치 없이 간단하게 처리하려면
다음과 같이 TTrackBar의 OnChange 이벤트 핸들러를 이용하면 됨.

//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
    if( GetAsyncKeyState( VK_LBUTTON ) & 0x8000 )
    {
        POINT cp;
        TTrackBar & tb = static_cast< TTrackBar & >(*Sender);

        ::GetCursorPos( &cp );
        ::ScreenToClient( tb.Handle, &cp );
        int pos = ((float)cp.x / tb.Width) * (tb.Max - tb.Min + 1);
        ::SendMessage(tb.Handle, TBM_SETPOS, 1, pos);
    }
}

장성호 님이 쓰신 글 :
: 완벽한것은 아니지만 대충 다음과 같이하면
: 님께서 원하시는것이 아닐까 생각됩니다.
:
: VCL-Control은 WindowProc를 다음과 같이 쉽게 바꿀수 있습니다.
:
:
:

: // Header에 다음과 같이 TWndMethod를 선언하시구요
: class TForm8 : public TForm
: {
: __published:	// IDE-managed Components
: 	TTrackBar *TrackBar1;
: 	TLabel *Label1;
: 	void __fastcall TrackBar1Change(TObject *Sender);
: 	void __fastcall FormCreate(TObject *Sender);
: private:	// User declarations
: public:		// User declarations
: 	__fastcall TForm8(TComponent* Owner);
: 
: public:
:         //Oritinal WindowProc저장할 변수 선언
: 	TWndMethod OrgTrackBarProc;
: 
:        //교체할 WindowProc메소드 선언 
: 	void __fastcall TrackBarWndProc(TMessage &Msg);
: };
: 

:
:
: 그리고 아래와 같이 코딩해 보세요
:
:

: 
: //TrackBar의 WindowProc교체 
: void __fastcall TForm8::FormCreate(TObject *Sender)
: {
: 	OrgTrackBarProc=TrackBar1->WindowProc;
: 	TrackBar1->WindowProc=TrackBarWndProc;
: }
: 
: //---------------------------------------------------------------------------
: //교체된WindowProc에서 LBUTTONDOWN(마우스 왼쪽 버튼 down)에 TrackBar의 Position조작
: void __fastcall TForm8::TrackBarWndProc(TMessage &Msg)
: {
: 	if(Msg.Msg==WM_LBUTTONDOWN)
: 	{
: 		TPoint ptTrPos=TrackBar1->ScreenToClient(Mouse->CursorPos);
: 		int iPos=TrackBar1->Min+(ptTrPos.x*(TrackBar1->Max-TrackBar1->Min))/TrackBar1->ClientWidth;
: 		if(iPos!=TrackBar1->Position)
: 		{
: 			TrackBar1->Position=iPos;
: 			return;
: 		}
: 	}
:         // 원래 Oritinal WindowProc호출해줌
: 	OrgTrackBarProc(Msg);
: }
: //---------------------------------------------------------------------------
: //화면 표시 
: void __fastcall TForm8::TrackBar1Change(TObject *Sender)
: {
: 	Label1->Caption=TrackBar1->Position;
: }
: 
: 

:
:
: 그럼..
:
: 압9정 님이 쓰신 글 :
: : 안녕하세요. TrackBar를 사용하여 동영상 플레이어를 만들고 있습니다.
: :
: : 현재 TrackBar->Min 이 0이고, TrackBar->Max 가 10 이고, TrackBar->Position 이 0 이고, TrackBar->PageSize = 1 일 때,
: :
: : 마우스로 3번째 위치를 눌르게 되면 TrackBar->Position 이 3이 되는 것이 아니라 TrackBar->PageSize 만큼 이동하여
: :
: : TrackBar->Position이 1이 됩니다.
: :
: : 이 때, 3번째 위치를 마우스로 눌렀을 때, TrackBar->Position이 3이 되도록 할 수 는 없나요?
: :
: : (그림을 보면 이해가 편하실 겁니다.)