Drag n Drop TStringGrid

← →
ford © (2009-10-06 13:32) [0]

Здравствуйте!!
расположил на форме TRxRichEdit
и TStringGrid
в обработчике onDragOver у StringGrid
Begin
Accept:=true;
end;

выделяю текст в ричедите, и перетаскиваю в StringGrid
но курсор при наведении на StringGRid показывает что Drop запрещен
свойство StringGrid.DragMode=dmManual;

Почему?? Как сделать чтобы грид принимал объекты??
почитал статью
http://www.delphimaster.ru/articles/dragndrop/index.html
вроде все так и сделал

← →
MBo © (2009-10-06 13:43) [1]

>свойство StringGrid.DragMode=dmManual;
Это не нужно при перетаскиваниии в грид

Ну раз в примере из статьи работает (из второго грида в первый перетаскивается), а у тебя нет, то есть сомнения в том, что "вроде все так и сделал"

← →
clickmaker © (2009-10-06 13:45) [2]

а в StringGridDragDrop что?

← →
ford © (2009-10-06 13:53) [3]

> а в StringGridDragDrop что?

procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept:=true; end; procedure TForm1.StringGrid1DragDrop(Sender, Source: TObject; X, Y: Integer); begin Application.MessageBox("Drop ok","hi",MB_OK); end;

собственно не вызывается DragOver :(
я туда поставил точку останова
и 0 :(

> Ну раз в примере из статьи работает (из второго грида в
> первый перетаскивается), а у тебя нет, то есть сомнения
> в том, что "вроде все так и сделал"

точно
я не поставил dmAutomatic в RichEdite !
но когда ставиш его в dmAutomatic
то невозможно выделить кусок текста мышкой
только клавишами

может что то надо написать в обработчике OnStartDrag у RichEdit?

← →
ford © (2009-10-06 14:18) [4]

т.е. надо перетаскивать не RichEdit
а выделенный текст из RichEdit

как это организовать?? подскажите

пришлось повесить BeginDrag в RichEdit на нажатие правой кнопки :((
некрасиво получается
если поставить два RxRichEdit то между ними все выделяется и перетаскивается
а вот перетащить в другой контрол получается по нормальному неполучается
:(

>на нажатие правой кнопки :((некрасиво получается
Левой кнопкой в Edit-контролах выделение и внутренняя реализация перетаскивания - так что левую использовать затруднительно, и, видимо, придется правой таскать.

Drag n Drop TStringGrid Найти похожие ветки