如何用代码加入图片(10分)

我

我是老虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-02

• #1

我会用控件的picture属性来插入图片了,但是我想用语句来实现,还望高手指点

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-02

• #2

OpenPictureDialog1.FileName := '';
//先用OpenPictureDlalog对话框获取图片路径。
if OpenPictureDialog1.Execute then
//然后用Picture的LoadFromFile方法加载图片就行了。
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

 

我

我是老虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-03

• #3

openpicturedialog1是个控件吗,怎么我直接用OpenPictureDialog1.FileName := '';它会报错!!!

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-03

• #4

是控件，是打开图片的对话框控件，在Delphi的Dialog标签页里有。

 

我

我是老虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #5

这是我按你说的放了两个控件 (一个OpenPictureDialog另一个是Image)后写的代码,可是它报错了,不知道为什么!!!
procedure TForm1.FormCreate(Sender: TObject);
begin
//OpenPictureDialog1.FileName := 'D:/我的文档/我的图片/25_87201_125fad6bece8fcb.jpg';
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

 

D

DIGUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #6

默认情况下,Image是不支持JPG格式的图片的,请引用JPEG单元

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-04

• #7

嗯，如楼上所说，要打开jpg格式的图片，必须要在uses上添加jpeg单元才行。

 

我

我是老虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-06

• #8

ls这位朋友,我按你说的方法,确实打开了,那个选图片的窗口,但我必须要点一下确定,图片才能到我的form1上,是不是可以再加一条语句,就能不点确定,直接让它在form1上显示

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-06

• #9

当然你也可以不用对话框,
用其他方法把文件名存储到变量中,
例如:
myFilename : string;
myFilename := 'D:/我的文档/我的图片/25_87201_125fad6bece8fcb.jpg';
Image1.Picture.LoadFromFile(myFilename);