Скачать: CL | DM;

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 я не забыл.. )))
Спасибо, что в статьи ткнул носом... ))

---

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c