StringGrid 组件 如何，双击可编辑， 就像操作Excel那样 ！

西月

StringGrid 组件  如何，双击可编辑，   就像操作Excel那样 ！

itdreamer

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j:Integer;
begin
  for i:=0 to 5 do
    for j:=0 to 50 do
  StringGrid1.Cells[i,j]:=IntToStr(100);
  StringGrid1.Options:=StringGrid1.Options+[goEditing];
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  StringGrid1.EditorMode:=True;
end;

团鱼之徒

{:7_155:}...............

xmmy520

2楼的好像无效果。

xmmy520

分给我，我解决了，代码相当简单！！！！！
鼠标事件设置！！
procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
StringGrid1.EditorMode:=True;
end;

西月

procedure TForm1.strngrd1DblClick(Sender: TObject);
begin
  Form1.strngrd1.Options :=Form1.strngrd1.Options + [goEditing];
  Form1.strngrd1.EditorMode:=True;
end;

沉默的风采

直接在属性里设置就行了。

海云

顶一下。。。。。

11年__那些事儿

西月 发表于 2013-7-13 09:58

                               
登录/注册后可看大图

procedure TForm1.strngrd1DblClick(Sender: TObject);
begin
  Form1.strngrd1.Options :=Form1.strngrd ...

西月 发表于 2013-7-13 09:58
+1