Текущий архив: 2006.02.26;
Скачать: CL | DM;

Вниз

Создать TImage и показать.   Найти похожие ветки 

← →
worldmen ©   (2006-02-08 15:47) [0]

Нужно создать динамически 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;
 При этом ничего не выводится.

---

← →
ZeroDivide ©   (2006-02-08 15:56) [1]

t.Parent := Form1;

---

← →
worldmen ©   (2006-02-08 16:08) [2]

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

---

← →
Ega23 ©   (2006-02-08 16:44) [3]

> t.Parent := Form1;


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

---

Страницы: 1 вся ветка

Текущий архив: 2006.02.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c