TCustomSpeedButton.MouseDown procedure
Performs actions needed for a mouse down event on the control.
Declaration
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X: Integer; Y: Integer); overrideArguments
Button | Button for the mouse event. |
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
MouseDown is an overridden method in
TCustomSpeedButton. It calls the inherited MouseDown method on
entry to signal the OnEditingDone event for the active control on the Parent
form. It also updates the DragManager coordinates when a drag operation is
already active.
No additional actions are performed in the method at design-time.
If the Left mouse button was pressed when the control is Enabled, Down is set to True (when needed) and the Action for the control is unchecked. An internal flag for a pending drag operation in MouseMove is set prior to exiting from the method.
See also
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.