Question

帮忙解释一下Delphi这两个事件的意思。

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; procedure TForm1.Button2Click(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*1)div Form1.Height)*Random(256); end;

Answer 1

随即在 form 上面画点（颜色不一样），产生一副随机画