Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Вниз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:=sourceis
Form2.TStringGrid; В статье о D&&D стоит просто=
Если ставить операторis
- то ничего не работает (??!!) Если поставить знак равенства - все пучком... Странно так все это...
В чем интересно разница?
А про uses я не забыл.. )))
Спасибо, что в статьи ткнул носом... ))
← →
MBo (2002-09-25 08:30) [5]is используется для проверки ТИПА
я не все исправил в прошлый раз ;(
Надо так:
Accept:=source = Form2. StringGrid1;
← →
MBo (2002-09-25 08:35) [6]P.S.
А такую форму
Accept:=source is TStringGrid; (без Form2)
можно использовать для приема перетаскивания из любого StringGrid, если их несколько
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c