не могу додумать код...

[MyLastHit]

Здравствуйте. Пишу программу которая создает Image(visible:=false), Button(visible:=true) по количеству равные Image. Хочу сделать так чтоб при клике по i-той кнопке, visible i-того image станговился в положение true. Вот что написал...по мне так правильно, но почему не работает?

var
  Form1: TForm1;
  RunTimeButtons: array [1..100] of TButton;
  RunTimeImg: array [1..100] of TImage;
  i:integer;//глобальные

procedure TForm1.FormCreate(Sender: TObject);

begin
 for i:=0 to 10 do begin
RunTimeButtons[i] := TButton.Create(self);
RunTimeImg[i] := TImage.Create(self);

with RunTimeImg[i] do begin
RunTimeImg[i].picture.LoadFromFile('d:\31.bmp'); parent:=self;
height:=17;
width:=192;
top:=i*height;
Visible := false;

end;
with RunTimeButtons[i] do begin
 parent:=self;
 left:=20;
 height:=17;
width:=192;
top:=i*height;
Visible := True;
onclick:=RTBclick;
end;
end;
end;


procedure TForm1.RTBclick(Sender: TObject);
begin
RunTimeImg[i].visible:=true;
end;

Процедуры обьявлены...

[lowercase]

попробуйте дописать после строчек

RunTimeButtons[i] := TButton.Create(self);
RunTimeImg[i] := TImage.Create(self);

строчки

RunTimeButtons[i].Parent:=self;
RunTimeImg[i].Parent:=self;

[DIgorevich]

Тебе надо получить номер кнопки по которой было нажатие. Используй свойство TAG для этих целей.

[MyLastHit]

tag:=i;
Что с этим далее делать? я просто еще ниразу с tag не работал...

[DIgorevich]

Слушай, ты же еще и имя компонентам созданным не присваиваешь...

[MyLastHit]

Ага...Присвоил...
name:='img'+i;

name:='btn'+i;
Так как быть с тагами?

[DIgorevich]

И что ты присвоил?? число как текст?

[MyLastHit]

name:='img'+inttostr(i); так...

[DIgorevich]

Лови, дальше, думаю разберешься: Заги.rar
Ты всё время забываешь про свою подпись

[MyLastHit]

нет не забываю) все дело в том что помощь оказываешь только ты. Я те плюс уже ставил. Система теперь пишет чтоб я тебе поставил +, я должен до этого поставить его кому нибудь другому)