Drag&Drop

← →
mfender (2003-09-02 12:57) [0]

Уважаемые Мастера.
Подскажите, как бы решить такую проблемцу:

В onDragOver DBGrid"а пишу

Accept:=(Source is TDBGrid) and (ARow>0);

чтобы получить данные из соседнего DBGrid"a.
onDragDrop выглядит примерно так:
if (Sender is TDBGrid) and (Source is TDBGrid) then
begin
-------- Обработка получаемого
end;

Так вот вопрос: Как сделать так, чтобы определить из какого DBGrida (Source) было, собственно притащено, и запретить таскать из другого?

← →
MBo © (2003-09-02 13:02) [1]

if Source<>Sender

← →
mfender (2003-09-02 13:06) [2]

Имеется в виду, что определить конкретный Source, его так сказать DBGrid.Name.

← →
Skier © (2003-09-02 13:09) [3]

{$B-}

if (Source is TComponent) and
(TComponent(Source).Name = "SomeName") then ...

← →
Skier © (2003-09-02 13:10) [4]

{$B-}

if (Source is TComponent) and
(TComponent(Source).Name = "SomeName") then ...

← →
mfender (2003-09-02 13:12) [5]

Точно! Спасибо за скорый ответ.
А что есть {$B-} ?

>mfender (02.09.03 13:12)

> А что есть {$B-} ?

F1 + $B

← →
mfender (2003-09-02 13:18) [7]

$B - очень лохматая тема. Надо ангельский язык получше выучить, чтобы прочитать help. Понял только, что это какието диррективы для компилятора.

> Понял только, что это какието диррективы для компилятора.

Понял правильно ! :)
Это директива говорит компилятору чтобы от использовал усечённый метод
вычисления логических выражений. Это директива ($B-) стоит в настройках
по умолчанию. Но я её всё же написал на всякий пожарный...т.к. если
будет стоять {$B+} то в лог. выражении, которое я привёл, очень вероятно получить AV.

Drag&Drop Найти похожие ветки