| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создать TImage и показать. [D5, 2000]

worldmen ©   (2006-02-08 15:47:00) 

Нужно создать динамически TImage. И вывести картинку на Panel1
Есть процедура

procedure TForm1.BitBtn1Click(Sender: TObject);
var t: TImage;
   p: string;
begin
 GetDir(0,p);
 t:=TImage.Create(Panel1);
 t.Picture.LoadFromFile(p+'\Res\000100.bmp');
 t.Left:=5; t.Top:=5;
 t.Visible:=true;
end;
 При этом ничего не выводится.

---

Ega23   (2006-02-08 16:44:00) [1]

> t.Parent := Form1;


не Form1, а Panel1, нааверное?  :о)

---

worldmen   (2006-02-08 16:08:00) [2]

Спасибо. Работает.

---

ZeroDivide   (2006-02-08 15:56:00) [3]

t.Parent := Form1;

---

Наверх