掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TImageの自動作成方法 (ID:10611)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォーム上に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.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.