动态创建窗体后，Canvas.Pixels失效

Question

首先我创建了一个tform1,tform2
然后将tform2作为主窗口
form1:=tform1.create(nil);
form1.ShowModal;
form1.Free;
form1:= nil;
程序运行后出现了问题，在form1中的image1控件
之前image1.Canvas.Pixels[i,j]:=RGB(0,0,0);可以的
但现在运行后，没有效果，程序也不出现错误不知道这是什么情况

Answer 1

image1.Canvas.Pixels[i,j]:=RGB(0,0,0); 这一句写在哪里？

Answer 2

写在form1里面

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j :integer;
begin
  for i := 0 to 50 do
    for j := 0 to 20 do
  image1.Canvas.Pixels[i,j]:=RGB(0,0,0);
end;
有效啊，上面代碼畫出一個黑色長方形。

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j :integer;
begin
  for i := 0 to 50 do
    for j := 0 to 20 do
  image1.Canvas.Pixels[i,j]:=RGB(0,0,0);
end;procedure TForm1.FormCreate(Sender: TObject);
var
  i,j :integer;
begin
  for i := 100 to 200 do
    for j := 10 to 30 do
  image1.Canvas.Pixels[i,j]:=RGB(0,255,0);
end;
我放在一个按钮中也可以，上述代码建立时显示一个绿色长方形。点击按钮时显示黑色长方形。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j :integer;
begin
  for i := 0 to 50 do
    for j := 0 to 20 do
  image1.Canvas.Pixels[i,j]:=RGB(0,0,0);
end;procedure TForm1.FormCreate(Sender: TObject);
var
  i,j :integer;
begin
  for i := 100 to 200 do
    for j := 10 to 30 do
  image1.Canvas.Pixels[i,j]:=RGB(0,255,0);
end;
我放在一个按钮中也可以，上述代码建立时显示一个绿色长方形。点击按钮时显示黑色长方形。
这个虽然有用，但是我在循环中加了一个数组内容的判断就没用了，而且如果不动态创建窗体也没有问题，一动态创建后，窗口的标题也没了,image图片也显示不出来

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j :integer;
begin
  for i := 0 to 50 do
    for j := 0 to 20 do
  image1.Canvas.Pixels[i,j]:=RGB(0,0,0);
end;procedure TForm1.FormCreate(Sender: TObject);
var
  i,j :integer;
begin
  for i := 100 to 200 do
    for j := 10 to 30 do
  image1.Canvas.Pixels[i,j]:=RGB(0,255,0);
end;
我放在一个按钮中也可以，上述代码建立时显示一个绿色长方形。点击按钮时显示黑色长方形。
这个虽然有用，但是我在循环中加了一个数组内容的判断就没用了，而且如果不动态创建窗体也没有问题，一动态创建后，窗口的标题也没了,image图片也显示不出来给出源码