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

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем Dock1100, 22 ноя 2009.

Статус темы:
Закрыта.
  1. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Написал код для создания обекта Timage из программы но есть одна проблема Рисунок не виден хотя при компиляции ошибок нету, :rolleyes: помогите.
    Код (Text):
    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;
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Уже не надо нашол проблему.
    Необходимо указать Parent, т.е.:
    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей