как добавит текста в edit3 выделенную строку на stringgrid ?

[alman12]

как добавит текста в edit3 вновь выделенную строку на stringgrid ?

[ksvsvk]

Сам-то понял, что спросил?

Строка в StringGrid состоит из нескольких ячеек. Текст каждой ячейки хранится отдельно. Edit можно использовать только для редактирования ячейки, но не строки.

[superedward]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 Edit3.Text:=StringGrid1.Cells[ACol,ARow]
 //как-то так
end;

[Stilet]

А скорее всего так: Edit3.Text:=Edit3.Text+StringGrid1. Cells[ACol,ARow]

[alman12]

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

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 Edit3.Text:=StringGrid1.Cells[ACol,ARow]
 //как-то так
end;

так не добавляеься проста показывается в edit3 содержимое выделенной сторки

[doktor255]

alman12 Равенство переверни, чудо.

[ksvsvk]

procedure TForm1.Edit3Exit(Sender: TObject);
begin
  with StringGrid1 do
    Cells[Col, Row] := Edit3.Text;
end;

На какое событие вешать -- догадайся сам.

[alman12]

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

procedure TForm1.Edit3Exit(Sender: TObject);
begin
  with StringGrid1 do
    Cells[Col, Row] := Edit3.Text;
end;

На какое событие вешать -- догадайся сам.

как на вторую колонку добавить ?

[Алексей_2012]

ты можешь выражаться точнее?

Тебе нужно в выделенную ячейку записать содержимое однострочного поля редактирования?

тогда проще вот так:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
 with StringGrid1 do
    Cells[Col, Row] := Edit3.Text;
end;

Работает примерно так (для тебя специально объясню):

пишешь что-то в edit3, затем кликаешь левой кнопкой мышкой по нужной ячейке в таблице, и то, что ты написал в эдит, появится в ячейке таблицы)

[doktor255]

ты можешь выражаться точнее?

Неа. Не может.