DELPHI КУРСОР МЫШИ
В Delphi есть много возможностей работы с курсором мыши. Одной из них является изменение внешнего вида курсора при наведении на объект на форме. Для этого можно воспользоваться свойством Cursor объекта, на который указывает курсор мыши.
Например, если нужно изменить курсор при наведении на кнопку Button1 на форме Form1, то можно использовать следующий код:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Button1.Cursor := crHandPoint; // изменяем курсор на рукуend;
Этот код будет вызываться при каждом движении мыши над кнопкой Button1 и изменит курсор на руку.
Кроме того, в Delphi есть возможность перехватывать события мыши. Например, можно отслеживать нажатия левой или правой кнопки мыши и выполнять нужные действия.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button = mbLeft then begin // выполнить нужные действия при нажатии левой кнопки мыши end else if Button = mbRight then begin // выполнить нужные действия при нажатии правой кнопки мыши end;end;
Этот код будет вызываться при нажатии любой кнопки мыши на форме Form1 и выполнит нужные действия в зависимости от нажатой кнопки.
Delphi TreeView Programming: Mouse Drag and Drop
Урок 27.Курсор мыши
How to reset ABS systemlight that wont turn off (ford transit)
Delphi Programming Tutorial #99 - Mouse Cursor in Firemonkey
Delphi 7 - Курсор не может выйти за пределы формы
3 01 Delphi практический курс Учимся работать с курсором мыши 480p