请教一个简单问题。再线等待。。(100分)

能否只用一个button 一个image组件和一个form
运行时候form中只有一个按钮。点击一下button 动态创建一个图片在form中
再点击一下再创建一个？？

可以的
Event Buttonclick

with TImage.create(self) do
begin
Parent:=self;
left:=..
top:=...
width:=...
height:=...
picture.bitmap.handle:=...
end;

能, 准确的说是动态调入图片.
Image1.Picture.LoadFromFile();

哪位大师帮帮忙。

谢谢，可以再写的详细点吗？picture.bitmap.handle:=...是什么？？

已经很详细了
althon64+大富翁WW
就可以了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
procedure LoadAndDrawImage(AFile: string);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.LoadAndDrawImage(AFile: string);
var
Bmp: TBitmap;
begin
if not FileExists(AFile) then Exit;
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(AFile);
Canvas.Draw(0, 0, Bmp);
finally
Bmp.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadAndDrawImage(OpenDialog1.FileName);
end;

end.

我太菜了，还是实现不了啊！

你试试我的程序再说吧。

你这个程序可以实现，但是我不想打开寻找图片。我想直接就是固定一张图片。点了button
就可以显示图片了。

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadAndDrawImage('d:/photo/你的图片.bmp');
end;

谢谢。