Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Romanuh © (2006-11-13 22:01:00)
Здраствуйте хотел спросить не знает ли кто нибуть как сделать чтобы один предмет мог перемещатся по форме вокруг другого ну например в FormKeyDown но не мог залезать (закрывать) собой другой. Пожалуйста очень нужно. Спасибо.

Ketmar (2006-11-14 19:23:00) [1]
ну как же тебе поможешь, если ты программировать не умеешь? только код написать. а это денег стоит.
хинт: нарисуй на листочке разные ситуации. подумай. напиши проверку.

Romanuh (2006-11-14 17:55:00) [2]
Спасибо конечно за совет. Но очень нужно. Помогите пожалуйста.
Виложу исходник что хочу сделать так будет понятьнее моя проблема.
Вот http://www.delphi-rus.narod.ru/1.rar

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

Romanuh (2006-11-14 12:48:00) [4]
Перемещается одна панель
нужно чтоби она перемещалась вокруг другой панели но не могла перекривать ее собой, тоесть наползать на нее.

Romanuh (2006-11-14 12:46:00) [5]
Я делаю так но не получается

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;

Pr1de (2006-11-14 12:39:00) [6]
Вот Xproger подсказал!

Ketmar (2006-11-14 02:17:00) [7]
а я вообще не понимаю, как на форму можно положить предмет.

XProger (2006-11-13 23:10:00) [8]
Obj.Left := x;
Obj.Top := y;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »