如何将数据库中的图片连接！有懂VB的吗？(100分)

I

igghdee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #1

VB原代码：
Picture2.Picture = LoadPicture(App.Path + List1.List(0))
Picture1.Cls
Picture1.PaintPicture Picture2, 0, 0
frmJudge.MousePointer = 0
如何译成DELPHI

 

I

igghdee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #2

[]

 

I

igghdee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #3

代码:

 

K

kinneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #4

Image2.Picture.Graphic.LoadFromFile(ExtractFilePath(Application.ExeName) + listbox1.Items.Strings[0]);
with image1 do Canvas.FillRect(ClientRect);
with image1 do Canvas.StretchDraw(ClientRect,Image2.Picture.Graphic);
mouse.CursorPos := Point(0,0);
凭空

 

I

igghdee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-13

• #5

非常感谢kinneng，
还有吗？

 

I

igghdee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-20

• #6

接受答案了.