表格问题！

西月

1. unit Unit14;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Vcl.ExtCtrls;
   
8. 
   
9. type
   
10.   TForm14 = class(TForm)
    
11.     Label1: TLabel;
    
12.     Button1: TButton;
    
13.     Button2: TButton;
    
14.     Label2: TLabel;
    
15.     Label3: TLabel;
    
16.     Label4: TLabel;
    
17.     StringGrid1: TStringGrid;
    
18.     Panel1: TPanel;
    
19.     Edit1: TEdit;
    
20.     Edit2: TEdit;
    
21.     Edit3: TEdit;
    
22.     Edit4: TEdit;
    
23.     procedure FormCreate(Sender: TObject);
    
24.     procedure Button1Click(Sender: TObject);
    
25.     procedure Button2Click(Sender: TObject);
    
26.   private
    
27.     { Private declarations }
    
28.   public
    
29.     { Public declarations }
    
30.   end;
    
31. 
    
32. var
    
33.   Form14: TForm14;
    
34.   RowCount:Integer;
    
35.   x:Integer=1;
    
36. implementation
    
37. 
    
38. {$R *.dfm}
    
39. 
    
40. procedure TForm14.Button1Click(Sender: TObject);
    
41. begin
    
42.     if (Trim(Edit1.Text) <>'')and(Trim(Edit2.Text) <>'')and(Trim(Edit3.Text) <>'')and(Trim(Edit4.Text) <>'') then
    
43.     begin
    
44.     StringGrid1.Cells [0,x]:=Edit1.Text ;
    
45.     StringGrid1.Cells [1,x]:=Edit2.Text ;
    
46.     StringGrid1.Cells [2,x]:=Edit3.Text ;
    
47.     StringGrid1.Cells [3,x]:=Edit4.Text ;
    
48.     x:=x+1;
    
49.     Button1.Caption :=IntToStr(x-1)+'/'+IntToStr(RowCount-1);
    
50.     end
    
51.     Else
    
52.   begin
    
53.     MessageBox(handle, '输入错误', '提示', MB_OK or MB_ICONSTOP);
    
54.   end;
    
55.     if (x= Rowcount) then
    
56.     begin
    
57.       Button1.Enabled := false;
    
58.       Button2.Enabled := True;
    
59.     end;
    
60.     Edit1.Text :='';
    
61.     Edit2.Text :='';
    
62.     Edit3.Text :='';
    
63.     Edit4.Text :='';
    
64. end;
    
65. 
    
66. procedure TForm14.Button2Click(Sender: TObject);
    
67. begin
    
68.     StringGrid1.Visible :=True;
    
69. end;
    
70. 
    
71. procedure TForm14.FormCreate(Sender: TObject);
    
72. var
    
73.     str:String;
    
74. 
    
75. begin
    
76.     str:=InputBox('提醒','请输入录入成绩的人数','');
    
77.     Form14.AutoSize :=true;
    
78.     Button2.Enabled :=False;
    
79.     StringGrid1.Visible :=false;
    
80.     StringGrid1.ColCount :=4;
    
81.     StringGrid1.RowCount := StrToInt(str)+1;
    
82.     Rowcount:= StrToInt(str)+1;
    
83.     StringGrid1.Cells  [1,0]:= '语文';
    
84.     StringGrid1.Cells  [2,0]:= '数学';
    
85.     StringGrid1.Cells  [3,0]:= '英语';
    
86. 
    
87. end;
    
88. 
    
89. end.

复制代码

  为什么我的表格  框框是这个样子的！！！