Помогите с алгоритмом.

← →
Romanuh (2006-11-13 22:01) [0]

Здраствуйте хотел спросить не знает ли кто нибуть как сделать чтобы один предмет мог перемещатся по форме вокруг другого ну например в FormKeyDown но не мог залезать (закрывать) собой другой. Пожалуйста очень нужно. Спасибо.

← →
XProger © (2006-11-13 23:10) [1]

Obj.Left := x;
Obj.Top := y;

← →
Ketmar © (2006-11-14 02:17) [2]

а я вообще не понимаю, как на форму можно положить предмет.

← →
Pr1de (2006-11-14 12:39) [3]

Вот Xproger подсказал!

← →
Romanuh (2006-11-14 12:46) [4]

Я делаю так но не получается

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 38 then
if form1.Panel1.Top <> form1.Panel2.Top+32 then
form1.Panel1.Top := form1.Panel1.Top-2 else form1.Panel1.Top := form1.Panel1.Top;
end;

← →
Romanuh (2006-11-14 12:48) [5]

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

>[4] Romanuh 14-Nov-2006, 12:46
ужас. язык поучи, а? рано тебе ещё в такое лезть.

← →
Romanuh (2006-11-14 17:55) [7]

Спасибо конечно за совет. Но очень нужно. Помогите пожалуйста.
Виложу исходник что хочу сделать так будет понятьнее моя проблема.
Вот http://www.delphi-rus.narod.ru/1.rar

ну как же тебе поможешь, если ты программировать не умеешь? только код написать. а это денег стоит.
хинт: нарисуй на листочке разные ситуации. подумай. напиши проверку.

Помогите с алгоритмом. Найти похожие ветки