andreybear
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vladman Спасибо еще раз, разобрался - ваш пример мне очень помог. Только одно мне не нравится: если в Код: FMovObj.EndDragAndDrop(FDropAccepted); | FDropAccepted = false (случай, когда созданный band следует удалить), то у курсора остается вид перечеркнутого круга. Причем такой вид курсора сохраняется в рамках всего окна, за пределами окна курсор приобретает обычный вид. Вид курсора Попытка поменять курсор так Код: Cursor := crArrow; cxGrid1.DragCursor := crArrow; | ни к чему не привела. Не ясно почему не меняется курсор после EndDragAndDrop(false) и как его вернуть в Default. И еще вопрос, может кто-нибудь сталкивался с тем, что в параметрах Source и Sender в среде в режиме отладки имеют значение () - пустые круглые скобки. Например, Код: procedure TForm1.ViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); | И, соответственно, присвоения типа Код: всегда в правой части содержат false. |