[решено] Проблемы при создании объекта TImage из программы (не показывается рисунок)

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Проблемы при создании объекта TImage из программы (не показывается рисунок) (http://forum.oszone.net/showthread.php?t=157966)

Dock1100

22-11-2009 23:20 1277573

Проблемы при создании объекта TImage из программы (не показывается рисунок)

Написал код для создания обекта Timage из программы но есть одна проблема: Рисунок не виден хотя при компиляции ошибок нету, помогите.

Код:

procedure TForm1.Button1Click(Sender: TObject);  

var ima:Timage;  

begin  

image:=TImage.Create(Form1); 

image.Top:=50;  

image.Left:=50;  

image.Picture.LoadFromFile('D:\1.bmp');  

image.Visible:=true;  

image.Height:=20;  

image.Width:=20;  

end;

Serega

23-11-2009 15:46 1278063

Цитата:

Цитата Dock1100

но есть одна проблема: Рисунок не виден »

Необходимо указать 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;

Dock1100

23-11-2009 19:09 1278235

Помогло спасибо.

Время: 22:19.