[angvelem]

Ну так я и указал ставь своё или используй как хотел PBM_GETRANGE

Код:

function pbWndProc(Wnd : HWND; Msg, wParam, lParam : Longint) : Longint; stdcall;
var
  Pt	: TPoint;
  aRect : TRect;
begin
  Result := CallWindowProc(hpbPrev, Wnd, Msg, wParam, lParam);
  case Msg of
    WM_LBUTTONDOWN :
    begin
      Pt.x := LOWORD(lParam);
      Pt.y := HIWORD(lParam);
      GetClientRect(Wnd, aRect);
      SendMessage(Wnd, PBM_SETPOS, Round(SendMessage(Wnd, PBM_GETRANGE, 0, 0) / aRect.Right * Pt.X), 0);
    end;
  end;  
end;