stringgird可以编辑么,该如何解决
stringgird可以编辑么
如果双击stringgird某单元,能否直接在stringgrid中编辑这个单元的值,并且updata到数据库,
可以的话,给个demo看看
//是在stringgird编辑哦,不是在新窗口中编辑。
------解决方案--------------------
给你做好了,给分吧
var
Form1: TForm1;
EdtCol,EdtRow:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
self.StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing];
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if stringgrid1.Cells[EdtCol,EdtRow]<>'' then
//在这儿可以提交你修改的内容
showmessage(stringgrid1.Cells[EdtCol,EdtRow]);
end;
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
EdtCol:=acol;
EdtRow:=arow;
end;
如果双击stringgird某单元,能否直接在stringgrid中编辑这个单元的值,并且updata到数据库,
可以的话,给个demo看看
//是在stringgird编辑哦,不是在新窗口中编辑。
------解决方案--------------------
给你做好了,给分吧
var
Form1: TForm1;
EdtCol,EdtRow:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
self.StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing];
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if stringgrid1.Cells[EdtCol,EdtRow]<>'' then
//在这儿可以提交你修改的内容
showmessage(stringgrid1.Cells[EdtCol,EdtRow]);
end;
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
EdtCol:=acol;
EdtRow:=arow;
end;