Delphi - Как опредилить динамический обект двухмерного масива TImage

Delphi - Как опредилить динамический обект двухмерного масива TImage

Dock1100

Новый участник

Сообщения: 8
Благодарности: 0

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

Код:

for i := 1 to 12 do
for k := 1 to 12 do
begin
i2:=i-1;
k2:=k-1;
State[i2,k2]:=TImage.Create(Form1);
with state[i2,k2] do begin
Width:=20;
Height:=20;
Picture.LoadFromFile(path+'not_open.bmp');
SetBounds(20*i2, 20*k2, 20, 20);
parent:=form1;
onmousedown:=cell_mousedown(i2,k2);
end;

где cell_mousedown

Код:

  state[i_pos,k_pos].Visible:=false;
  status[i_pos,k_pos].Visible:=true;

(тоесть в cell_mousedown(i2,k2); я определяю какой именно Timage для дальнейшей с ним работыю)
Выдает что ето не событие а процедура.
Как ето исправить.

Отправлено: 14:35, 24-11-2009