TscrollBar/OnMouseUp ?

[BubikolRamios]

There is no OnMouseUp event at TscrollBar ?

Want to do something on each onChange
but other thing not on each change, just once, when mouse up occurs when scroll bar button dragging left & right with mouse ends ?
How to do that ?

[CM630]

Indeed, none of these is triggered:

Code: Pascal  [Select][+][-]

1. procedure TForm1.ScrollBar1EndDrag(Sender, Target: TObject; X, Y: Integer);
2. begin
3.   ShowMessage ('EndDrag');
4. end;
5.  
6. procedure TForm1.ScrollBar1Exit(Sender: TObject);
7. begin
8.   ShowMessage ('Exit');
9. end;
10.  
11. procedure TForm1.ScrollBar1DragDrop(Sender, Source: TObject; X, Y: Integer);
12. begin
13.    ShowMessage ('DragDrop');
14. end;
15.  
16. procedure TForm1.ScrollBar1DragOver(Sender, Source: TObject; X, Y: Integer;
17.   State: TDragState; var Accept: Boolean);
18. begin
19.   ShowMessage ('OnDragOver')
20. end;

[BubikolRamios]

Exit unusable. Dragend etc when you end drag some icon gets frozen on screen and code at dragend  not executed until extra click on drag button.
dmAutomatic.
Icon BW.

[CM630]

As the last resort, you can use TATScrollbar from "AT Controls" (https://wiki.freepascal.org/CudaText)