Проблемы при создании обекта Timage из программы

Статус
Закрыто для дальнейших ответов.
09.11.2009
665
1
#1
Написал код для создания обекта Timage из программы но есть одна проблема Рисунок не виден хотя при компиляции ошибок нету, :rolleyes: помогите.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var ima:Timage;
begin
ima:=TImage.Create(Form1);
ima.Top:=50;
ima.Left:=50;
ima.Picture.LoadFromFile('D:\1.bmp');
ima.Visible:=true;
ima.Height:=20;
ima.Width:=20;
end;
 
09.11.2009
665
1
#2
Уже не надо нашол проблему.
Необходимо указать Parent, т.е.:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
img: TImage;
begin
img:= TImage.Create(Form1);
with img do
begin
SetBounds(50, 50, 20, 20);
Picture.LoadFromFile('D:\1.bmp');
Proportional:= True;
Parent:= Form1;
end;
end;
 
Статус
Закрыто для дальнейших ответов.