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

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

Как запретить эффект Drag&Drop

DelphiLexx ©   (2007-03-30 17:29:00) 

У меня есть два грида в которых можно перемещать элементы между собой. В некоторых случаях мне нужно, чтобы Drag&Drop не работал как это сделать.

---

Virgo_Style   (2007-03-31 10:42:00) [1]

DelphiLexx ©   (30.03.07 19:40) [2]
Тогда, если мне ничего не изменяет, надо вручную вызывать BeginDrag при dmManual

---

Кросспостинг!   (2007-03-30 20:00:00) [2]

Кросспостинг!
http://www.sql.ru/forum/actualthread.aspx?tid=413129

---

DelphiLexx   (2007-03-30 19:40:00) [3]

> procedure TForm1.StringGrid1DragOver(Sender, Source: TObject;
>  X, Y: Integer;
>  State: TDragState; var Accept: Boolean);
> begin
>  Accept:= ( Random(2)=0 );
> end;

Нет мне нужно чтобы даже курсор не менялся при попытке двинуть элемент

---

Virgo_Style   (2007-03-30 19:24:00) [4]

procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
begin
 Accept:= ( Random(2)=0 );
end;


---

Наверх