TCustomControlBar.MouseUp procedure
Handles a mouse up message that ends a drag operation for a control band.
Declaration
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X: Integer;
Y: Integer); overrideArguments
Button | Mouse button for the notification. |
Shift | Shift, Ctrl, or Alt modifier for the mouse event. |
X | Horizontal coordinate for the mouse pointer. |
Y | Vertical coordinate for the mouse pointer. |
Description
MouseUp is an overridden method in
TCustomControlBar. It
calls the inherited method on entry to signal the OnMouseUp event handler
(when assigned). If the control is currently moving one of its bands, the
internal flag is reset to reflect the end of the drag operation. ChangeCursor
is called to restore the default cursor shape. SortVisibleBands is called to
sort the visible bands on the control by their display coordinates (Left and
Top).
MouseUp is called when the LM_LBUTTONUP message is handled for the control.
See also
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.