Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38DragCursor.shtml

Глава 38. TControl.DragCursor

Свойство DragCursor

Затрагиваемые объекты Все элементы управления
Назначение Свойство DragCursor определяет форму указателя мыши на то время, как он перетаскивает объект над этим элементом управления.
Объявление property DragCursor: TCursor;
Пример синтаксиса
// Изменить форму курсора, если над панелью перетаскивается объект

procedure TForm1.Panel1DragOver(Sender,Source: TObject; X,Y: Integer;
                                State: TDragState; var Accept: Boolean);
begin
  Panel1.DragCursor := crDrag;

end;
Описание Необходимо вначале установить элемент управления, который должен принять опущенные объекты, и только после этого начнет воздействовать DragCursor. Это на самом деле очень просто: все, что нужно сделать — это обработать одно из событий перетаскивания, подобное OnDragOver, как в вышеприведенном примере.
[Свойство Align] [Метод BeginDrag] [Свойство BoundsRect] [Метод BringToFront] [Свойство Caption] [Свойство ClientHeight] [Свойство ClientOrigin] [Свойство ClientRect] [Метод ClientToScreen] [Свойство ClientWidth] [Свойство Color] [Свойство ControlState] [Свойство ControlStyle] [Свойство Cursor] [Свойство DragCursor] [Метод Dragging] [Свойство DragMode] [Свойство Enabled] [Метод EndDrag] [Свойство Font] [Метод GetTextBuf] [Метод GetTextLen] [Свойство Height] [Метод Hide] [Свойство Hint] [Метод Invalidate] [Свойство Left] [Событие OnClick] [Событие OnDblClick] [Событие OnDragDrop] [Событие OnDragOver] [Событие OnEndDrag] [Событие OnMouseDown] [Событие OnMouseMove] [Событие OnMouseUp] [Событие OnStartDrag] [Свойство Parent] [Свойство ParentColor] [Свойство ParentFont] [Свойство ParentShowHint] [Свойство PopupMenu] [Метод Refresh] [Метод Repaint] [Метод ScreenToClient] [Метод SendToBack] [Метод SetBounds] [Метод SetTextBuf] [Метод Show] [Свойство ShowHint] [Свойство Text] [Свойство Top] [Метод Update] [Свойство Visible] [Свойство Width]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38DragCursor.shtml