BTW I am using TJvTrackbar from the JEDI VCL which already has an OnMouseDown Event Property if that helps.

I went ahead and created a component that would require less code changes.
Save the following as a unit and then install the component. The new TrackBarC
will be found on the samples palette. It works for horizontal bars. I'll leave it
to you for vertical. This was a good example of making delphi work for you
especially when an existing property is not published (OnMouseDown).

unit TrackBarC;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TTrackBarC = class(TTrackBar)
  public
    property OnMouseDown;
    constructor Create(AOwner: TComponent); override;
    procedure MouseDownC(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TTrackBarC]);
end;

constructor TTrackBarC.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnMouseDown:=MouseDownC;
end;

procedure TTrackBarC.MouseDownC(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  Offset,Space:Integer;
begin
  Space:=11;
  Offset:=X-Space;
  Position:=Round(Min+Offset/(Width-2*Space)*(Max-Min));
end;

end.

Thanks alot for your help. I just used your first example on the OnMouseDown event for the trackbar I already had and it worked great. I would have used your component but the trackbar I am using has an OnMouseUp event as well and I needed to keep it.

I think your component will come in handy though because it gives me an idea of how to create my own components for things like this so thanks again.

I don't get the OnMouseDown, it won't show up.