[delpi12]

как добавит текст edit1 выделенной ячейке в stringgrid ?

[Kailon]

А в предыдущем своем вопросе ответ посмотреть, не?

[delpi12]

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

А в предыдущем своем вопросе ответ посмотреть, не?

в предыдущем сообшение нечего не поличилось ,

[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;

[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;

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

[Kailon]

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

Вообще-то код работает так:

1. выделяешь любую ячейку (за исключением зафиксированных);
2. пишешь в Edit текст;
3. нажимаешь на кнопку.

В итоге твой текст из Edit'a переносится в выделенную ранее ячейку в StringGrid.
Или тебе не так нужно? Объясни свою задачу в целом.