问一简单问题：随机创建一个窗口背景

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
  for i:=0 to form1.height do
    for j:=0 to form1.width do
      Form1.canvas.Pixels[j,i]:=$100*random(256);
end;书上的例子，可是运行后并不“随机”，每次都是那种颜色，为什么？
还有：不理解“$”在此的意义。
谢谢！

Answer 1

//可能不是优先级的问题，因为每个点都是随即的颜色所以看起来有点像，如果改为这样你试试
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:integer;
 r,g,b:integer;
begin
  for i:=0 to form1.height do
  begin
   r:=random(256);
   g:=random(256);
   b:=random(256);
    for j:=0 to form1.width do
      Form1.canvas.Pixels[j,i]:=$1*r*g*b;
  end;
end;