Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Вниз
Drag&Drop Найти похожие ветки
← →
Iconka © (2004-09-20 13:51) [0]Как в процедуре DragOver объекту запретить перетаскивать себя на себя, а на другие объекты этого же типа разрешить? Объекты на неком workspace динамически создает пользователь.
← →
jack128 © (2004-09-20 14:01) [1]TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
property OnDragOver: TDragOverEvent;
Не оно??
← →
П7 (2004-09-20 14:02) [2]Хз... У объекта должно быть имя, вот в DragOver нужно сделать проверочку...
Допустим, что твой объект называет BadaBoom.
В его событии DragOver пишешь следующее:
Accept := Source <> BadaBoom;
Вот, собственно и всё...
← →
Iconka © (2004-09-20 14:04) [3]Вопрос в том как определить что DropOver происходит на самом себе?
← →
Iconka © (2004-09-20 14:07) [4]
> У объекта должно быть имя
Объекты динамичесик создаются. Какое у них там имя ХЗ.
← →
wl (2004-09-20 14:09) [5]
Accept := False;
if(Source Is <Нужный тип>) And (Sender <> Source) Then Accept := True;
← →
jack128 © (2004-09-20 14:09) [6]Iconka © (20.09.04 14:07) [4]
Объекты динамичесик создаются. Какое у них там имя ХЗ.
то есть??? Это событие генерит получающий бъект, так? Тогда Accept := Source <> Sender;
← →
Iconka © (2004-09-20 14:19) [7]Всё ясно. Спасибо что навели на мысль. Меня смутило то что в объвлении процедуры DragOver (именно её я перекрываю) нет параметра Sender (не путать с OnDragOver)
Работает Accept := Source <> Self
← →
П7 (2004-09-20 14:23) [8]Ну вот вишь, сам догадался... (:
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c
