안녕하세요.

Image를 동적으로 생성하여 화면에 나타내려고 하는데

아무리 해도 잘 안되네요.

Image의 최대 갯수는 알수 없는 관계로 사용자가 버튼을 누를때 마다

새로운 Image를 생성하여 화면에 표시를 할려고 합니다.
(기존생성된 Image는 계속 화면에 나타내고...)

SOURCE를 보시고 잘못된 부분을 지적해 주신면 고맙겠습니다.



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Image : TImage;
  x, y : integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  image := TImage.Create(Image);
  inc(x,10);
  inc(y,10);
  Image.Left := x;
  Image.Top := y;
  Image.Stretch := true;
  Image.Picture.LoadFromFile('d:\htc\map\test.ico');
  Image.Show;  // 화면에 나타나지가 않네요.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x := 0; y := 0;
end;

end.


감사합니다.