Показать сообщение отдельно
  #8  
Старый 28.11.2007, 18:46
Analitik Analitik вне форума
Прохожий
 
Регистрация: 28.11.2007
Сообщения: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от Admin
Код:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13
 then
  begin
   key:=#0;
   StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
end;

Чего то на иф кее 13 выдает ошибку
Ответить с цитированием