up

解决方案 »

  1.   

    自已画,就你dbgrid,listgrid的表格一样。
    要什么样的规格,自己可以控制。
      

  2.   

    >>运行后是否可以显示为网络!什麼意思???
    顯示為網格???那用個 StringGrid 占滿整個form最簡單了!也可用Form的canvas 上畫啊!!
      

  3.   

    在form中,没运行时,它是有网格的,运行后是否还可以让form显示为网格!网格为-格一格!谢谢上面的人的回答!!,如果用Form的canvas 画,可以画得像,还没运行的状态吗?up
      

  4.   

    procedure TForm1.FormPaint(Sender: TObject);
    var
      i,j :integer;
      Height,Width :integer;
    begin
      Height := Form1.Height;
      Width :=Form1.Width;
      i :=0;
      j :=0;
      while i< Height do
      begin
        while j<  Width do
        begin
          Form1.Canvas.Pixels[j,i] :=clBlack;
          j :=j+5;
        end;
        j :=0;
        i :=i+5;
      end;
    end;
      

  5.   

    procedure TForm1.FormPaint(Sender: TObject);
    var
      i,j :integer;
      Height,Width :integer;
    begin
      Height := Form1.Height;
      Width :=Form1.Width;
      i :=0;
      j :=0;
      while i< Height do
      begin
        while j<  Width do
        begin
          Form1.Canvas.Pixels[j,i] :=clBlack;
          j :=j+8;
        end;
        j :=0;
        i :=i+8;
      end;
    end;