Куда подевалось событие?

← →
Stager (2003-01-23 20:51) [0]

Использую два компонента: TEhGrid и TUJFileDropSource. Цель их совместного использования - дать возможность юзеру осуществлять Drag&Drop из грида куда угодно.

По идее (и согласно примерам), все должно быть так: Я проставляю UJFileDropSource1.DragControl = EhGrid1;. При захвате чего-либо в гриде, у UJFileDropSource1 срабатывает событие OnStartDrag, чтобы я мог спокойно задать, что и как я собираюсь "драгать и дропать" :).

На самом деле никакое событие не срабатывает. Ставил брейкпоинт - управление туда не попадает. Если же в качестве DragControl установить какой-нибудь ListBox - все отлично работает.

Объясните, Мастера, почему так происходит и как это обойти?

С уважением, Алексей.

← →
Юрий Зотов (2003-01-23 23:08) [1]

Из хелпа:

1. OnStartDrag only occurs if DragKind is dkDrag.

2. Enable automatic dragging by setting DragMode to dmAutomatic.

> есть подозрение, что это глюк достаточно общего вида, то есть
> не связанный с какими-либо уникальными и неповторимыми
> свойствами указанных компонент

Правильное у Вас подозрение. Это действительно ОЧЕНЬ распространенный глюк. Называется Eyes.Mind.Hands.F1.Disabled.

← →
Stager (2003-01-23 23:50) [2]

> 1. OnStartDrag only occurs if DragKind is dkDrag.
> 2. Enable automatic dragging by setting DragMode to dmAutomatic

К сожалению, все именно так и есть. ((DragKind = dkDrag) and (DragMode = dmAutomatic)) = True; Хотя испробованы и другие варианты, давшие не больше.

> Правильное у Вас подозрение. Это действительно ОЧЕНЬ распространенный
> глюк. Называется Eyes.Mind.Hands.F1.Disabled.

Ценю здоровое ехидство, но хелп я читал, и не раз, а варианты установки как dmAutomatic, так и dmManual в любых комбинациях для обоих компонент пробовал. Не в моих привычках при любой загвоздке в форум бежать, а тут уже руки опускаются.

С уважением, Алексей.

← →
Юрий Зотов (2003-01-24 01:11) [3]

ОК, sorry за ехидство. Кажется, EhLib у меня на каком-то диске валялся. Завтра постараюсь найти, поставить и проверить. Вот только TUJFileDropSource у меня нет, его проверить не смогу.

А вообще, поддержка "дрыг-н-прыг" в Delphi реализована уже на уровне TControl. Нужно ОЧЕНЬ плохо написать свой компонент, чтобы ее нарушить - а EhLib написан все же грамотно, вряд ли она там нарушена.

← →
Stager (2003-01-24 01:58) [4]

> ОК, sorry за ехидство.

Принимается. :)

> Кажется, EhLib у меня на каком-то диске валялся. Завтра
> постараюсь найти, поставить и проверить. Вот только TUJFileDropSource
> у меня нет, его проверить не смогу.

TUJFileDropSource лежит на этом самом сайте, в кладовке. Находится через поиск по "Drag&Drop". Большое спасибо за участие.

С уважением, Алексей.

← →
Stager (2003-01-24 21:07) [5]

Неужели никто не подскажет? Явно ведь тут что-то с наследованием... Хотя знал бы - сам бы разбирался.

С уважением, Алексей.

← →
Юрий Зотов (2003-01-25 08:35) [6]

Увы, я не нашел в Кладовке TUJFileDropSource. Поиск по "Drag&Drop" дает совсем другое (кстати, то, чем лучше не пользоваться). Пожалуйста, дайте прямой URL.

Куда подевалось событие? Найти похожие ветки