TImageの自動作成方法

解決

リュウ 2004-08-27 04:04:59 No: 10611

フォーム上にTImageの自動作成表示を行おうとしたのですが、
作成が上手くいっていないのかフォーム上に何も表示しません。
ですが、エラーは表示されず、正常に処理は通っているようです。
何が原因なのか分かりません。ソースは以下です。
すみませんが、以下ソースで誤りな点があれば教えてください。

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Image:array[1..20] of TImage;
begin

   //画像情報表示(とりあえず、画像は一つ作成)
   Image[1]:=Timage.Create(Form1);
   Image[1].ParentShowHint:=True;
   Image[1].Left:=16;
   Image[1].top:=38;
   Image[1].Height:=90;
   Image[1].Width:=90;
   Image[1].Picture.LoadFromFile('\Dlephi\picture\4.bmp');
   Image[1].Visible:=true;

end;

end.

リュウ 2004-08-27 04:11:40 No: 10612

すみません、分かりました。Parentを指定していませんでした。
以下を追加したら表示されました。

image[1].Parent:=Form1;

おさがわせしました。