StringGrid 组件 如何,双击可编辑, 就像操作Excel那样 !
StringGrid 组件如何,双击可编辑, 就像操作Excel那样 !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; {:7_155:}............... 2楼的好像无效果。 分给我,我解决了,代码相当简单!!!!!
鼠标事件设置!!
procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
StringGrid1.EditorMode:=True;
end; procedure TForm1.strngrd1DblClick(Sender: TObject);
begin
Form1.strngrd1.Options :=Form1.strngrd1.Options + ;
Form1.strngrd1.EditorMode:=True;
end; 直接在属性里设置就行了。
顶一下。。。。。 西月 发表于 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]