прогрманое вытаскивание компонента

[Juffin]

мне, например, надо сделать игровую локацию, и объекты на ней, но для облегчения перерисовки локации (если игрок ходит) я заново рисую канву (точнее, почти все на ней). Но мне кажется, что лучше просто перемещать (или переносить на верхний слой) картинки.
вопрос:
как програмно создать объект типа "image", получить его имя в форме и обратиться к нему?

[Лукманов Александр]

procedure TForm1.btn1Click(Sender: TObject);
begin
with TImage.Create(self) do
 begin
  Picture.LoadFromFile('1.bmp');
  Name:='1';
 end;

end.

не забудьте в uses дописать ExtCtrls

[Juffin]

а можешь пояснить каждый оператор?
и, да, как к ним обращаться?

[Лукманов Александр]

procedure TForm1.btn1Click(Sender: TObject);
begin

with TImage.Create(self) do // создаём Image, и начинаем работу с созданным элементом.

 begin
  Picture.LoadFromFile('1.bmp'); // присваиваем компоненту имя и картину
  Name:='1';
 end;

end.

чтобы обращаться к нему, для удобства можно добавить в Var

a: TImage

Потом присваиваешь к А, созданный компонент.

A:= TImage1.Create(Self)

дальше обращайся к А

[Juffin]

а можно вместо этого

procedure TForm1.btn1Click(Sender: TObject);
begin
with TImage.Create(self) do
 begin
  Picture.LoadFromFile('1.bmp');
  Name:='1';
 end;

end.

сделать так:

var a:TImage;

procedure TForm.btn1Click(Sender: TObject);
begin
a:=TImage.create(self)
a.Picture.LoadFromFile('1.bmp');
end;

и дальше обращаться как к a?

[Juggernaut]

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

Parent:=Form1;

[Juffin]

все равно что-то не получается. у меня есть переменная, я пишу

objects[i].pic.Picture:=TImage.Create(self);

вылетает ошибка Undeclarated identifier (self)

objects - массив записей, pic - элемент записи типа TImage. В чем дело?

[Juggernaut]

Проверь Uses'ы, вставь из пустого проекта (замени).

[Juffin]

проверил, вставил, не помогло.

[DeKot]

Почитай http://www.programmersforum.ru/showthread.php?t=45082 может поможет.