[ANDRON94]

Имею вот такой код:

Код:

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var Pick:PNewtonBody;
begin
if Button=mbRight then
   begin
  if Assigned(Pick) then NewtonBodySetForceAndTorqueCallBack(PIck, Gravity);
 end;
end;

Хочу чтобы при нажатии правой клавиши мыши к телу на которое я кликаю(я так понимаю это Pick) прикладывалась сила Gravity. По идее функция Assigned(pick) проверяет является ли данное тело физ. объектом, но куда я не кликал на физ. тело или нет функция постоянно срабатывает и ящик падает. получаетсся что указатель Pick всегда не nil. Помогите, что бы код работал корректно.


ЗАБЫЛ ДОБАВИТЬ . . . . . . . . .


Появилась ошибка(вернее она была, просто забыл сказать):"Access violation at address 10032D8 iun module 'Newton.dll'. Write of address 0000041C'. Ошибка срабатывает в момент нажатия правой кнопкой мыши и коробка не падает, хотя я и говорил что падает, но это не так. Вывод мне ясен переменная Pick ни на что не указывает, просьба та же: Как корректно оформить код?

[angvelem]

Что то я не вижу в коде строк, где эта переменная определяется. Есть её описание и попытка использовать.

[ANDRON94]

Кажется в этом проблема, я заблуждался в функции Assigned() раньше я думал что она осуществляет проверку являлось ли нажатое тело с тем же типом что и указатель.
если var pick:TButton то я думал что Assigned(Pick) проверяетчто я нажал: кнопку или нет. Но на самом деле Assigned(Pick) не определяет переменную а всего лишь смотрит пустой адрес или нет. Теперь я знаю как ее определить, но если возникнут вопросы я их задам, тему пока не закрывайте!!!!!!!!!!

[NumLock]

в справке написано же:

Delphi syntax:

function Assigned(const P): Boolean;

Description

Use Assigned to determine whether the pointer or procedure referenced by P is nil. P must be a variable reference of a pointer or procedural type. Assigned(P) corresponds to the test P<> nil for a pointer variable, and @P <> nil for a procedural variable.

Assigned returns false if P is nil, true otherwise.

Note: Assigned can't detect a dangling pointer--that is, one that isn't nil but no longer points to valid data. For example, in the code example for Assigned, Assigned won't detect the fact that P isn't valid.

[ANDRON94]

Я понял в чем проблема, но еще нужно поработать, пока код не работает
НО ОН ЗАРАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!!!!