2хм. массив из TImage

[Viteef]

Разыгралось у меня нынче любопытство! Расскажите пожалуйста как можно динамически создать (для примера шахматную доску) из TImage и описать ее как 2хм. массив. Как к нему (массиву) обращатся можно?

[Romanbl4]

когда я делал игру "Морской бой" я ни до чего не додумался кроме как нарисовать кучу Image. А чтобы ими управлять - создал массив Pole:array [1..10,1..10] of TImage;

потом в form1.oncreate поочереди присвоил
Pole[1,1]:=Image1;
Pole[2,1]:=Image2;
и т.д.

[ЧИЖ]

сделать в общем то так же как и одномерный и не массив

 
picmass:array[1..8,1..8] of Timage;
 
 
for i:=1 to 8 do 
for j:=1 to 8 do begin
picmass[i,j]:=Timage.create(owner);
picmass[i,j].parent:=self;
if (i+j) mod 2 = 0 then
picmass[i,j].picture.bitmap.LoadFromFile('Black.BMP')
else
picmass[i,j].picture.bitmap.LoadFromFile('White.BMP');
picmass[i,j].left:=(i-1)*picmass[i,j].width;
picmass[i,j].top:=(j-1)*picmass[i,j].height;
end;

или если совсен динамический то

 
picmass:array of array of Timage;
 
 
setlength(picmass,7);
for i:=0 to 7 do begin
setlength(picmass[i],7);
for j:=0 to 7 do begin
picmass[i,j]:=Timage.create(owner);
picmass[i,j].parent:=self;
if (i+j) mod 2 = 0 then
picmass[i,j].picture.bitmap.LoadFromFile('Black.BMP')
else
picmass[i,j].picture.bitmap.LoadFromFile('White.BMP');
picmass[i,j].left:=i*picmass[i,j].width;
picmass[i,j].top:=j*picmass[i,j].height;
end;
end;

а вот как к ним обработчики привязать onclick например сам хотел бы узнать

[mrandrey]

а вот как к ним обработчики привязать onclick например сам хотел бы узнать

Тоже просто:

var picmass:array of array of Timage;
a:timage; 
begin
setlength(picmass,7);
for i:=0 to 7 do begin
setlength(picmass[i],7);
for j:=0 to 7 do begin
a:=Timage.create(owner);
a.onclik:=Myclick;
a.parent:=self;
picmass[i,j]:=a;
if (i+j) mod 2 = 0 then
picmass[i,j].picture.bitmap.LoadFromFile('Black.BMP')
else
picmass[i,j].picture.bitmap.LoadFromFile('White.BMP');
picmass[i,j].left:=i*picmass[i,j].width;
picmass[i,j].top:=j*picmass[i,j].height;
end;
end;
end;

Что еще за извращения с цветными буковками ?
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[zetrix]

Извините конечно, но чем вас DrawGrid или StringGrid не устраивает? Канва есть, всё уже разбито на квадраты, OnClick - не проблема для каждой ячейки сделать...

[Alt]

ЧИЖ, большое спасибо за код! Очень помогло!
Хотелось бы узнать, что делает строка

picmass[i,j].parent:=self;

?
А то не люблю использовать то, чего не понимаю

[Marsel737]

Alt, это так указывается предок картинки. Это необходимо при динамическом создании. Можно ещё написать вместо self

Image.Parent := Form1;

[TwiX]

Дословно и, в то же время, правильно - это Родитель=)
По сути - контейнер, в котором хранится объект.

[Alt]

Спасибо!
Буду знать.

[Serg-Grin]

Здравствуйте, zetrix вы написали что можно каждую клетку в StringGrid разбить через OnClick.
Можете примерно написать код?