Скачать: CL | DM;

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

← →
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]

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

---

← →
Ketmar ©   (2006-11-14 17:33) [6]

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

---

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

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

---

← →
Ketmar ©   (2006-11-14 19:23) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c