同一フォームを複数表示するには？

解決

かえるっち 2004-06-21 19:44:52 No: 9528

また教えてください。
処理実行後に処理結果を表示するフォームを表示したいのですが、
同じフォームを複数表示させることは可能なのでしょうか？
処理は同じプログラム内で、複数流れるので、結果フォームを
複数表示させたいのです。
よろしくお願いします。

るるとん＠Ｋ 2004-06-21 21:25:53 No: 9529

学校は台風で休みです
procedure TForm1.Button1Click(Sender: TObject);
var
F:Array[0..5] of TForm1;
i:integer;
begin
for i:=0 to 5 do
begin
F[i]:=TForm1.Create(Self);
F[i].Left:=F[i].Left+i*10;
F[i].Top:=F[i].Top+i*10;
F[i].Caption:=inttostr(i+1);
end;
end;

かえるっち 2004-06-22 01:12:37 No: 9530

ありがとうございました。
早速やってみます。