[Admin]

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

а можно как то по исправленому выше сообщении, чтоб при введении в первую строку нажимая энтэр появлялась следующая, и как это реализовать?

Код:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13
 then
  begin
   key:=#0;
   StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
end;