博客

类似MSSQL创建表差不多的功能，就是允许输入一行，一旦输入某一行后，自动添加下一个空白行。同时支持选中行删除。

这是困扰我两天的难题，最后还是到论坛发帖求助，求一解决方案

unit gridtest;<br /> interface<br /> uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, Grids, StdCtrls;<br /> type<br /> TForm1 = class(TForm)<br /> StringGrid1: TStringGrid;<br /> procedure FormCreate(Sender: TObject);<br /> procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;<br /> Rect: TRect; State: TGridDrawState);<br /> procedure StringGrid1Click(Sender: TObject);<br /> procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;<br /> Shift: TShiftState);<br /> procedure StringGrid1DblClick(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> fcheck,fnocheck:tbitmap;<br /> procedure init;<br /> procedure addgrid;<br /> procedure DeleteRow(ARow: Longint);<br /> end;<br /> var<br /> Form1: TForm1;<br /> implementation<br /> {$R *.dfm}<br /> procedure TForm1.init;<br /> var<br /> i:SmallInt;<br /> bmp:TBitmap;<br /> begin<br /> FCheck:= TBitmap.Create;<br /> FNoCheck:= TBitmap.Create;<br /> bmp:= TBitmap.create;<br /> try<br /> bmp.handle := LoadBitmap( 0, PChar(OBM_CHECKBOXES ));<br /> With FNoCheck Do Begin<br /> width := bmp.width div 4;<br /> height := bmp.height div 3;<br /> canvas.copyrect( canvas.cliprect, bmp.canvas, canvas.cliprect );<br /> End;<br /> With FCheck Do Begin<br /> width := bmp.width div 4;<br /> height := bmp.height div 3;<br /> canvas.copyrect(<br /> canvas.cliprect,<br /> bmp.canvas,<br /> rect( width, 0, 2*width, height ));<br /> End;<br /> finally<br /> bmp.free;<br /> end;<br /> StringGrid1.Cells[1,0]:=’列名’;<br /> StringGrid1.Cells[2,0]:=’数据类型’;<br /> StringGrid1.Cells[3,0]:=’充许空’;<br /> end;<br /> procedure TForm1.addgrid;<br /> var<br /> i: Integer;<br /> CurrentRow:integer;<br /> begin<br /> //先增加一行<br /> StringGrid1.RowCount := StringGrid1.RowCount + 1;<br /> StringGrid1.Rows[StringGrid1.RowCount – 1].Clear;<br /> //移形换位，把最后一行跟你指定的行换位置！<br /> CurrentRow := StringGrid1.Row+1;<br /> for i := StringGrid1.RowCount – 1 downto CurrentRow + 1 do<br /> begin<br /> StringGrid1.Rows[i].Assign(StringGrid1.Rows[i – 1]);<br /> end;<br /> StringGrid1.Rows[CurrentRow].Clear;<br /> StringGrid1.Row := CurrentRow;<br /> SendMessage(StringGrid1.Handle, EM_SCROLLCARET, 0, 0);//多送你一个方法：滚动到插入行的位置<br /> end;<br /> procedure TForm1.DeleteRow(ARow:integer);<br /> var<br /> i,mrow:integer;<br /> begin<br /> if arow<2 then //保留一行<br /> exit;<br /> with stringgrid1 do<br /> begin<br /> mrow:=RowCount;<br /> for i:=arow to mrow-2 do<br /> Rows[i].Assign(Rows[i+1]);<br /> rowcount:=rowcount-1;<br /> end;<br /> end; </p> <p>procedure TForm1.FormCreate(Sender: TObject);<br /> begin<br /> Init;<br /> end;<br /> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;<br /> Rect: TRect; State: TGridDrawState);<br /> begin<br /> if (acol=3) and (arow>=1) then<br /> begin<br /> if not (gdFixed in State) then<br /> with TStringGrid(Sender).Canvas do<br /> begin<br /> brush.Color:=clWindow;<br /> FillRect(Rect);<br /> if StringGrid1.Cells[ACol,ARow]=’yes’ then<br /> Draw( (rect.right + rect.left – FCheck.width) div 2,<br /> (rect.bottom + rect.top – FCheck.height) div 2,<br /> FCheck )<br /> else<br /> Draw( (rect.right + rect.left – FCheck.width) div 2,<br /> (rect.bottom + rect.top – FCheck.height) div 2,<br /> FNoCheck );<br /> end;<br /> end;<br /> end;<br /> procedure TForm1.StringGrid1Click(Sender: TObject);<br /> begin<br /> if (StringGrid1.col=3) and (StringGrid1.row>=1) then<br /> begin<br /> StringGrid1.Options:=StringGrid1.Options-[goEditing] ;<br /> if StringGrid1.Cells[StringGrid1.col,StringGrid1.row]=’yes’ then<br /> StringGrid1.Cells[StringGrid1.col,StringGrid1.row]:=’no’<br /> else<br /> StringGrid1.Cells[StringGrid1.col,StringGrid1.row]:=’yes’;<br /> end else<br /> StringGrid1.Options:=StringGrid1.Options+[goEditing] ;<br /> end;<br /> procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;<br /> Shift: TShiftState);<br /> begin<br /> if (key=vk_down) and ( StringGrid1.Row=StringGrid1.RowCount-1) then<br /> addgrid;<br /> end;<br /> procedure TForm1.StringGrid1DblClick(Sender: TObject);<br /> begin<br /> DeleteRow( StringGrid1.Row);<br /> end;<br /> end.