Блокировка/разблокировка

[gadilla_cs]

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

Помогите пожалуйста.

ЗЫ: пример моего нерабочего кода, скажите может ли он вообще работать в таких случаях если я его изменю

if (Horse1.top=56) and (Horse1.Left=48) then button1.Enabled:=false;
     if (Horse1.top<>56) and (Horse1.Left<>48) then button1.Enabled:=true;

[Neoteric]

В теории таймер + ваш код должен работать

[gadilla_cs]

Ну первая строка то работает, а вторую привести в действие я не могу

И как я понял вы мне говорите о том что кнопка через некоторое время активируется? тогда картинка сможет остаться на позиции где кнопка блокируется а потом просто пойти выше

[evg_m]

телепатор подсказывает ваша проблема в математике
отрицание для (Horse1.top=56) and (Horse1.Left=48)
не эквивалентно (Horse1.top<>56) and (Horse1.Left<>48)

button1.Enabled:=not ( (Horse1.top=56) and (Horse1.Left=48)  );

[gadilla_cs]

Все равно не помогает, кнопка не возвращается

[evg_m]

Как в логике пользователя идет блокирование (разблокирование)?
Где находится код блокировки(разблокировки)? в каких процедурах событиях?
Короче говоря нужно больше кода.

[gadilla_cs]

Я уже понял что нужно больше кода, Только что писать я понять не могу. Где у меня ошибки понять не могу. Вот и спрашиваю.

[evg_m]

Где в какой процедуре (обработчике которого события) находится тот код который вы привели (button1.enabled:=)? (весь код процедуры включая заголовок)
Если это собственная процедура(не та которая доступна в инспекторе объектов(InspectorObject) то и ее вызов в процедурах обработчиках( с указанием для каких событий это обработчики).
Каким образом пользователь может выйти(выходит) из заблокированного состояния? (Хотя бы словесное описание). И как об этом узнает программа.

[gadilla_cs]

procedure TForm1.Button1Click(Sender: TObject);
begin
Horse1.Top:=Horse1.Top-48;
if (Horse1.top=56) and (Horse1.Left=48) then Button1.enabled:=false;
if not ((Horse1.top=56) and (Horse1.Left=48)) then Button1.enabled:=true;
end;

Вот, образом перемещения картинки на доступную для передвижения вверх позицию, а вот как об этом узнает программа...

[evg_m]

ну и чего вы хотите? Где логика?
Вошли в критичное состояние и .. отключили управление!
А дальше-то что?
Как вы(пользователь) теперь собираетесь изменять его положение(выходить из критичного состояния).

Движение по клику и отключаете этот самый клик (а как думаете выходить).