Solved

No OnMouseUp with TTrackBar?

Posted on 1997-07-30
2
754 Views
Last Modified: 2008-02-26
There doesn't seem to be an event to tell me when the user
finishes sliding the track bar.

Any clues on this one?

Ta chris

(C++Bulider qusetion, hoping Delphi is the same ;-)
0
Comment
Question by:chrishart
2 Comments
 

Accepted Solution

by:
CyberWolf earned 100 total points
ID: 1340220
Hi Chris,

I encountered that problem too. Here is the way I solved it in delphi :

//file: exttrackbar.pas (Extended Trackbar by CyberWolf)
//
// If you use it, please send me your comments, suggestions
// or modifications at CyberWolf_cool@hotmail.com !
//
//
unit ExtTrackBar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, CommCtrl, ComCtrls;

type
  TExtendedTrackBar = class(TTrackBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure ClearTics;
  published
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;

procedure Register;

implementation

procedure TExtendedTrackBar.ClearTics;
begin
SendMessage(Handle,TBM_CLEARTICS,LongInt(True),0);
end;

procedure Register;
begin
  RegisterComponents('CyberWolf', [TExtendedTrackBar]);
end;

end.



As you can see I fixed the bug of the missing ClearTics function too! To use this new trackbar, simply install the new component and then use this one instead of the original TTrackbar!

I hope this will solve your problem,

See ya,

CyberWolf
0
 

Author Comment

by:chrishart
ID: 1340221
That looks great, thanks. It looks a little tricky for a novice like me but I'll give it a go!

I'll let you know how I get on,

many thanks from chris
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question