Question

我怎样把EDIT嵌入stringgrid里面

Answer 1

procedure TForm1.CreateEdit;
var
StrEdit: TEdit;
i, j: integer; //输入控件的左上顶点X,Y;
begin
i:=self.StringGrid1.DefaultColWidth*SelACol; //SelACol是被选中的Cell的列号
j:=self.StringGrid1.DefaultRowHeight*SelArow; //SelArow是被选中的Cell的行号
StrEdit:=TEdit.Create(self);
StrEdit.Left:=i;
StrEdit.Top :=j;
StrEdit.Width:=self.StringGrid1.DefaultColWidth;
StrEdit.Height:=self.StringGrid1.DefaultRowHeight;
StrEdit.Parent:=self.StringGrid1;
StrEdit.Text:=self.StringGrid1.Cells[SelACol,SelARow];
StrEdit.SetFocus;
end;

你为什么要这样做？如果你想在stringgrid中输入字符串，把stringgrid的options属性中的goedit设为true就可以了