这段程序为什么不能显示我希望的窗体背景颜色阿？

Question

procedure TForm1.Formcreat(Sender: TObject);
var 
  x,y:Word;
begin
  with Canvas do
  begin
  for x:=0 to Width do
   begin
      for y:=0 to Height do
      begin
        Pixels[x,y]:=RGB(0,0,255);  {用API函数宏RGB合成颜色}
      end;
   end;
end;
end;

Answer 1

一个点一个点的设？有毅力！
你直接设置form的背景色属性！--如果你像上面的写的话，form在create以后会用自己的backcolor将你写的背景覆盖掉，所以你看不到

Answer 2

何必这么麻烦:Color:=clRed;红色

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Color:=RGB(0,0,255);
end;

Answer 4

form.color:=clred;或你的程序放在onpaint事件里

Answer 5

procedure TForm1.FormPaint(Sender: TObject);
var
  x,y:Word;
begin
  with Canvas do
  begin
  for x:=0 to Width do
   begin
      for y:=0 to Height do
      begin
        Pixels[x,y]:=RGB(0,0,255);  {用API函数宏RGB合成颜色}
      end;
   end;
   END;
end;

Answer 6

1）在Form.onPaint()中写入你的代码
2）self.color:=..

Answer 7

谢谢各位大侠，我不是想设窗体背景，只是拿来做个实验，而是要把我的一个颜色矩阵显示了。我试过，在formcreat事件中不能，但是如果放到formdbclick中就OK了。这是为什么阿？

Answer 8

fromcreate触发时，窗口的相关环境还没有建立好，所以无效.