| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Drag && Drop [D6, WinXP]

liho26 ©   (2002-09-25 08:06:00) 

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

---

MBo   (2002-09-25 08:35:00) [1]

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

---

MBo   (2002-09-25 08:30:00) [2]

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

Accept:=source = Form2. StringGrid1;

---

liho26   (2002-09-25 08:20:00) [3]

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

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

---

MBo   (2002-09-25 08:13:00) [4]

uses unit2 забыл?


Accept:=source =Form2.TStringGrid;

---

liho26   (2002-09-25 08:12:00) [5]

Проблема вот в чем:
На одной форме сидит 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:11:00) [6]

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

---

Наверх