Drag && Drop

← →
liho26 © (2002-09-25 08:06) [0]

Как организовать перетаскивание картинки (или тектса) между двумя формами, которые в одном проекте?

← →
MBo © (2002-09-25 08:11) [1]

по обычным правилам Drag"n"Drop - обработчики DragOver и DragDrop
см. раздел Статьи

← →
liho26 © (2002-09-25 08:12) [2]

Проблема вот в чем:
На одной форме сидит TrichEdit, на который надо бросить текст. На второй - TstringGrid.

В обрабочике RichEdit dragOver я пишу следующее
procedure TForm1.КшсрУвшеDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept:=source is Form2.TStringGrid; end;
проблема заключается в том, что объект TStringGrid не виден.
Как быть? как обойти это?

← →
MBo © (2002-09-25 08:13) [3]

uses unit2 забыл?

Accept:=source = Form2.TStringGrid;

← →
liho26 © (2002-09-25 08:20) [4]

Все, разобрался.. В примере Delphi написан такой код:

Accept:=source is Form2.TStringGrid; В статье о D&&D стоит просто = Если ставить оператор is - то ничего не работает (??!!) Если поставить знак равенства - все пучком... Странно так все это...
В чем интересно разница?
А про uses я не забыл.. )))
Спасибо, что в статьи ткнул носом... ))

is используется для проверки ТИПА
я не все исправил в прошлый раз ;(
Надо так:

Accept:=source = Form2. StringGrid1;

P.S.
А такую форму
Accept:=source is TStringGrid; (без Form2)
можно использовать для приема перетаскивания из любого StringGrid, если их несколько

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