delphi trackbar with mouse events

Hi experts,

  I am using delphi-7(pascal), I want trackbar with mouse up event. Please tell me how to get mouse up event for delphi normal trackbar. or please suggest me any free components for trackbar with mouse events.

inampudi1Asked:
Who is Participating?
 
Eddie ShipmanConnect With a Mentor All-around developerCommented:
Try this on for size:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;
 
type
  TTrackBar = class(ComCtrls.TTrackbar)
  protected
    property OnMouseUp;
  end;
 
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TBMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.TBMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage(IntToStr(x) + ':' + IntToStr(y));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.OnMouseUp := TBMouseUp;
end;
 
end.

Open in new window

0
 
Eddie ShipmanAll-around developerCommented:
inampudi1, Have you had time to try the code?

It simply publishes the OnMouseUp for the trackbar control.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.