主题：如何在窗体上绘制一个包含N*N个格子的正方形？

Question

需要用函数吗？该如何实现？请各位高手指教  
 
 

Answer 1

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  N,len,i,j:integer;
begin
  n:=2;//N*N;
  len:=20;//小正方形的边长。  with image1.Canvas do
  begin
    //恨先
    for i:=0 to n do
    begin
      MoveTo(0,len*i);
      LineTo(len*n,len*i);
    end;
    //竖线
    for i:=0 to n do
    begin
      moveto(len*i,0);
      lineto(len*i,len*n);
    end;  end;
end;我画到image里了，如果要画到form上要在OnPaint上重画