Динамическое создание объекта

[Fruit]

странно... не отображаются на форме динамически созданные компоненты Timage..

вот код:
var: imgBlue: array [1..4] of TImage;


procedure TForm1.FormCreate(Sender: TObject);
begin

for i:=1 to 4 do
begin
imgBlue[i]:=TImage.Create(Form1);
imgBlue[i].Parent:=Form1;
end;

imgBlue[1].Visible:=true;
imgBlue[1].Top:=500;
imgBlue[1].Left:=400;

end;

[mihali4]

А вы попробуйте просто - "вручную" кинуть на форму имэдж, а потом убрать с него фокус. Много вы увидите?
Нужно картинку туда "впердолить", тогда он и виден будет...

[Fruit]

Спасибо!
Это так?

for i:=1 to 4 do
imgBlue[1].Picture:='blue1.bmp';

Несовпадение типов - TPicture и String.. естественно.
где-то здесь, кажется... было loadpicture..

[Veiron]

imgBlue[1].Picture.LoadFromFile('blue1.bmp');

[Fruit]

Спасибо огромное всем ) Темку можно закрывать! Прогу щас доделаю ) К слову сказать, это типа теста для американских летчиков -
http://www.lutskiy.ru/
Вот таки дела!

[Prisian]

Сообщение от Fruit

странно... не отображаются на форме динамически созданные компоненты Timage..

вот код:
var: imgBlue: array [1..4] of TImage;


procedure TForm1.FormCreate(Sender: TObject);
begin

for i:=1 to 4 do
begin
imgBlue[i]:=TImage.Create(Form1);
imgBlue[i].Parent:=Form1;
end;

imgBlue[1].Visible:=true;
imgBlue[1].Top:=500;
imgBlue[1].Left:=400;

end;

но тебе нужно былобы сделать так:

var: imgBlue: array [1..4] of TImage;


procedure TForm1.FormCreate(Sender: TObject);
begin

for i:=1 to 4 do
begin
imgBlue[i]:=TImage.Create(Self);
imgBlue[i].Parent:=true;
end;

imgBlue[1].Visible:=true;
imgBlue[1].Top:=500;
imgBlue[1].Left:=400;

end;

From Stilet: минус балл за непроверенные ложные советы