Delphi的stringGrid,ValueListEditor等表格相关

Question

   我想做类似MSSQL创建表差不多的功能，就是允许输入一行，一旦输入某一行后，自动添加下一个空白行。同时支持选中行删除。不想用第三方控件，有没有什么比较好的方法。MSSQL截图如下。

Answer 1

不想用三方控件，就自己扩展，给你推荐一个比较好的控件:TDBGridEh

Answer 2

简单写了一个程序,供参考
在最后一行按下箭头增加一行,双击删除当前行
一些代码是网上贴过来的,格式较乱,但测试一下(XP+D6)基本符合你的要求.unit gridtest;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1Click(Sender: TObject);
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure StringGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    fcheck,fnocheck:tbitmap;
    procedure init;
    procedure addgrid;
    procedure   DeleteRow(ARow:   Longint);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.init;
var
i:SmallInt;
bmp:TBitmap;
begin
FCheck:= TBitmap.Create;
FNoCheck:= TBitmap.Create;
bmp:= TBitmap.create;
try
bmp.handle := LoadBitmap( 0, PChar(OBM_CHECKBOXES ));
With FNoCheck Do Begin
width := bmp.width div 4;
height := bmp.height div 3;
canvas.copyrect( canvas.cliprect, bmp.canvas, canvas.cliprect );
End;
With FCheck Do Begin
width := bmp.width div 4;
height := bmp.height div 3;
canvas.copyrect(
canvas.cliprect,
bmp.canvas,
rect( width, 0, 2*width, height ));
End;
finally
bmp.free;
end;StringGrid1.Cells[1,0]:='列名';
StringGrid1.Cells[2,0]:='数据类型';
StringGrid1.Cells[3,0]:='充许空';end;procedure TForm1.addgrid;
var   
      i:   Integer;
      CurrentRow:integer;
begin
      //先增加一行
      StringGrid1.RowCount   :=   StringGrid1.RowCount   +   1;
     StringGrid1.Rows[StringGrid1.RowCount   -   1].Clear;
      //移形换位，把最后一行跟你指定的行换位置！
     CurrentRow   :=   StringGrid1.Row+1;
      for   i   :=   StringGrid1.RowCount   -   1   downto   CurrentRow   +   1   do
      begin
         StringGrid1.Rows[i].Assign(StringGrid1.Rows[i   -   1]);
      end;
      StringGrid1.Rows[CurrentRow].Clear;
      StringGrid1.Row   :=   CurrentRow;
      SendMessage(StringGrid1.Handle,   EM_SCROLLCARET,   0,   0);//多送你一个方法：滚动到插入行的位置
end;
procedure   TForm1.DeleteRow(ARow:integer);
var
  i,mrow:integer;
  begin
      if   arow<2   then     //保留一行
          exit;
      with   stringgrid1   do
      begin
          mrow:=RowCount;
          for   i:=arow   to   mrow-2   do
              Rows[i].Assign(Rows[i+1]);
          rowcount:=rowcount-1;   
      end;   
  end;   
procedure TForm1.FormCreate(Sender: TObject);
begin
   Init;
end;procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (acol=3)  and (arow>=1) then
begin
if not (gdFixed in State) then
with TStringGrid(Sender).Canvas do
begin
brush.Color:=clWindow;
FillRect(Rect);
if StringGrid1.Cells[ACol,ARow]='yes' then
Draw( (rect.right + rect.left - FCheck.width) div 2,
(rect.bottom + rect.top - FCheck.height) div 2,
FCheck )
else
Draw( (rect.right + rect.left - FCheck.width) div 2,
(rect.bottom + rect.top - FCheck.height) div 2,
FNoCheck );
end;
end;
end;procedure TForm1.StringGrid1Click(Sender: TObject);
begin
if (StringGrid1.col=3)  and (StringGrid1.row>=1) then
begin
StringGrid1.Options:=StringGrid1.Options-[goEditing] ;
if StringGrid1.Cells[StringGrid1.col,StringGrid1.row]='yes' then
StringGrid1.Cells[StringGrid1.col,StringGrid1.row]:='no'
else
StringGrid1.Cells[StringGrid1.col,StringGrid1.row]:='yes';
end else
StringGrid1.Options:=StringGrid1.Options+[goEditing] ;
end;
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_down) and ( StringGrid1.Row=StringGrid1.RowCount-1)   then
    addgrid;end;procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
  DeleteRow( StringGrid1.Row);
end;end.

Answer 3

用dbgrid就可以，只不过要处理几个按键：回车（若是记录尾则新增）、下箭头（若是记录尾则新增）、删除（ctrl+del键，删除当前记录）

Answer 4

可用dbgrid处理strings不是很麻烦嘛。

Answer 5

我不是连数据库，只是单纯处理TSTRINGLIST

Answer 6

这个很好实现,输入完后直接stringgrid1.rowcount:=stringgrid1.rowcount+1;