Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
6-1090592600
webpauk
2004-07-23 18:23
2004.10.03
WinApi


1-1095259544
Relaxxx
2004-09-15 18:45
2004.10.03
Как мне у предложения отрезать последнее слово и записать.....


1-1095234959
ser
2004-09-15 11:55
2004.10.03
Конвертер проектов Delphi в Borland - dpk2bpk


4-1093377556
VZup
2004-08-24 23:59
2004.10.03
Круглая SpeedButton


1-1095192147
Саня
2004-09-15 00:02
2004.10.03
Как сушествить перевод числа?