Смена курсора при drag and drop от состояния управляющих клавиш

← →
AlexSt © (2006-11-27 12:31) [0]

Подскажите, кто знает, как сменить курсор DragCursor во время перетаскивания, если была нажата управляющая клавиша (Alt Ctrl, Shift)?

← →
ЮЮ © (2006-11-28 10:16) [1]

Кого и куда? Стандартное поведение определено здесь:

function TDragObject.GetDragCursor(Accepted: Boolean; X, Y: Integer): TCursor; begin if Accepted then Result := crDrag else Result := crNoDrop; end;

Т.е. использовать наследника TDragObjec.

Смена курсора при drag and drop от состояния управляющих клавиш Найти похожие ветки