Timage的菜鸟问题(50分)

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-11

• #1

pic1:=Timage.Create(form1);
pic1.Picture.LoadFromFile('d:/els/pic1.bmp');
怎样显示pic1!

 

D

DarwinZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-11

• #2

pic1:=TImage.Create(form1);
pic1.Picture.LoadFromFile('a.bmp');
pic1.AutoSize:=True; //可选择
pic1.Parent:=form1;

---------------------------------------
建议您去看一看Delphi入门的书.

 

R

ricon2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-11

• #3

接受答案了.

 

G

gaolang2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-11

• #4

procedure TForm1.Button1Click(Sender: TObject);
var Pic1:TImage;
begin
Pic1:=TImage.Create(self);
pic1.Picture.LoadFromFile('c:/temp2.bmp');
pic1.Parent:=form1;
end;
我试过了，可以。

 

C

Cut.fei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-11

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
pic1:=Timage.Create(Self);
with Pic1 do
begin
Parent := Form1;
Top := 10;
Left := 20;
Height := 105;
Width := 105; //定义显示的位置及大小
Picture.LoadFromFile('d:/els/pic1.bmp');
end;
end;
应该好使的，我使用过的。
别忘了给分呀！[]