西月 发表于 2013-7-12 17:00:22

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

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

itdreamer 发表于 2013-7-12 17:00:23

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

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

团鱼之徒 发表于 2013-7-12 18:40:06

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

xmmy520 发表于 2013-7-12 23:26:44

2楼的好像无效果。

xmmy520 发表于 2013-7-12 23:31:47

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

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

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

沉默的风采 发表于 2013-7-18 16:50:42

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

海云 发表于 2013-7-18 17:06:00

顶一下。。。。。

11年__那些事儿 发表于 2013-7-20 15:33:59

西月 发表于 2013-7-13 09:58 static/image/common/back.gif
procedure TForm1.strngrd1DblClick(Sender: TObject);
begin
Form1.strngrd1.Options :=Form1.strngrd ...

西月 发表于 2013-7-13 09:58
+1
页: [1]
查看完整版本: StringGrid 组件 如何,双击可编辑, 就像操作Excel那样 !