Mouse Movements

Mouse movements refer to various physical movements made by computer users on the screen using a mouse device. The mouse is used to move a cursor on the computer screen and perform actions like clicking, dragging, etc.

Mouse movements provide computer users with an interactive interface. In the TRObject programming language, you can look at the following movements and purposes for using the event triggered when you move the mouse pointer over a component:

Feature	Use of	Definition
tbeOnMouseDown	Form1.AddNewEvent(GestureImg, tbeOnMouseDown, 'onFormMouseDown'); //GestureImg:TclImage	It is an event triggered when a component (such as a button or an image) is clicked with the mouse. This event occurs when the mouse button is pressed.
tbeOnMouseUp	Form1.AddNewEvent(GestureImg, tbeOnMouseUp, 'onFormMouseUp');	It is an event triggered when a component is released after being clicked with the mouse. This event represents the moment when the mouse button is released.
tbeOnMouseMove	Form1.AddNewEvent(GestureImg, tbeOnMouseMove, 'onFormMouseMove');	It is an event triggered when you move the mouse pointer over a component. This event occurs when you move the mouse pointer.
clFormMousePosX	Form1.clFormMousePosX	It represents the X (horizontal) coordinate of the mouse cursor on the form.
clFormMousePosY	Form1.clFormMousePosY	It represents the Y (vertical) coordinate of the mouse cursor on the form.
clSenderMousePosX	Form1.clSenderMousePosX	It represents the X coordinate of the mouse cursor over an object (such as TclPanel, TclImage, etc.).
clSenderMousePosY	Form1.clSenderMousePosY	It represents the Y coordinate of the mouse cursor over an object (such as TclPanel, TclImage, etc.).

Example

var
myForm:TclForm;
MouseLbl:TclLabel;
GestureImg:TClImage;

void onFormMouseMove;
{

MouseLbl.Text = IntToStr(MyForm.clFormMousePosX) + ','+ 
IntToStr(MyForm.clFormMousePosY);
MouseLbl.Text = IntToStr(MyForm.clSenderMousePosX) + ','+ 
IntToStr(MyForm.clSenderMousePosY);
}
void onFormMouseDown;
{

MouseLbl.Text = IntToStr(MyForm.clFormMousePosX) + ','+ 
IntToStr(MyForm.clFormMousePosY);
MouseLbl.Text = IntToStr(MyForm.clSenderMousePosX) + ','+ 
IntToStr(MyForm.clSenderMousePosY);
}

void onFormMouseUp;
{ 
MouseLbl.Text = IntToStr(MyForm.clFormMousePosX) + ','+ 
IntToStr(MyForm.clFormMousePosY);
MouseLbl.Text = IntToStr(MyForm.clSenderMousePosX) + ','+ 
IntToStr(MyForm.clSenderMousePosY);
} 

{
  myForm = TClForm.Create(Self);
  
  MouseLbl = myForm.AddNewLabel(MyForm, 'MouseLbl','--');
  MouseLbl.Align = alTop;
  MouseLbl.Height = 20;
  
  GestureImg = myForm.AddNewImage(MyForm, 'GestureImg');
  MyForm.setImage(GestureImg,'https://clomosy.com/demos/bg.png');
  GestureImg.Align = alCenter;
  GestureImg.Height = 270;
  GestureImg.Width = 150;
  
  MyForm.AddNewEvent(GestureImg, tbeOnMouseDown, 
  'onFormMouseDown'); 
  MyForm.AddNewEvent(GestureImg, tbeOnMouseUp, 'onFormMouseUp');
  MyForm.AddNewEvent(GestureImg, tbeOnMouseMove, 'onFormMouseMove');
  
  myForm.Run;

}

See Also

• Sensor Structures
• Components
• Object Properties