Работа с массивами компонентов

← →
aleccc (2006-01-04 22:28) [0]

Здравствуйте. Подскажите пожалуйста как мне решить следующую задачу:Создаю компоненты create(self), присваеваю их массиву (к примеру ...of TShape), но мне нужно
чтобы любой такой mas[i] передвигаясь по форме совпадая и топом и лефтом другого mas[i] останавливался, а с которым
совпало двигался далее(переберая циклом что то не то получается)

← →
Virgo_Style © (2006-01-04 23:02) [1]

как делаешь?

← →
aleccc (2006-01-04 23:04) [2]

Таймером передвигается какой то TShape

← →
YurikGL © (2006-01-04 23:07) [3]

> Создаю компоненты create(self), присваеваю их массиву

Код, пожалуйста...

> Таймером передвигается какой то TShape

Код, пожалуйста...

← →
aleccc (2006-01-04 23:21) [4]

sha:array[1..100]of TShape;
n:integer;

.............................................
procedure TForm3.FormClick(Sender: TObject);
..............................................
sha[n]:=TShape.Create(Self);
with sha[n].Create(self)do begin
parent:=form3;
Width:=7;
Height:=7;
Shape:=stCircle;
Left:=strtoint(Form1.Edit3.text)-20;
Top:=strtoint(Form1.Edit4.text)-3;
end;
.....................................
procedure TForm3.Timer2Timer(Sender: TObject);
begin
for i:=1 to 3 do
sha[i].Left:=sha[i].Left+1;
ниже неправильно
if sha[i].left=sha[i].left then.......
end;

← →
Гаврила © (2006-01-05 00:26) [5]

>sha[n]:=TShape.Create(Self);
> with sha[n].Create(self)do begin

А вот это зачем (для начала):
with sha[n].Create(self)do begin
Зачем конструктор еще раз вызываешь (уже как метод)?
Не нужно

> procedure TForm3.Timer2Timer(Sender: TObject);

Ничего не понял, что ты тут хочешь, чтобы было?

aleccc (04.01.06 23:21) [4]
if sha[i].left=sha[i].left then.......

И чего ты хотел этим добиться, если не секрет?

← →
aleccc (2006-01-05 13:06) [7]

Хотел короче при совпадении координат какого угодно sha[I] с другим sha[i]
(это в каждом случае могут быть разные sha[i], в зависимости как я их размещу на форме) выполнялось определённое
действие, но ничего не выходит

aleccc (05.01.06 13:06) [7]

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

Работа с массивами компонентов Найти похожие ветки