[delpi12]

Сообщение от Kailon

Код:

var
  sCol, sRow: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Cells[sCol, SRow] := Edit1.Text;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  sCol := ACol;
  sRow := ARow;
end;

а как на второй колонке добавить ?