StringGrid Опции

[Tan]

Вечер добрый! Что - то я не смог найти свойство, которое устанавливает максимальную вместимость ячейки StringGrid (просто надо сделать, чтобы в ней хоранился только 1 символ). Выручайте

[Rian]

Сам когда-то пытался найти такое поле, но не нашёл.
Пришлось просто обрабатывать каждую нужную ячейку onkeyUP:

 <
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;> 

хотя может и есть не такой убитый способ ?..

Кстати да. заведи себе edit с ограниченной длинной и подставляй его поверх ячейки.

Сообщение отредактировано: feniks25 - 13.10.2007 0:46

[Гость]

OnSetEditText обрабатывать не лучше?

[Rian]

OnSetEditText обрабатывать не лучше?

Не знаю? У меня ошибку акцес виолатион выдаёт.

[Гость]

"Это ты не умеешь его готовить"... У меня не выдает. Как пытался?

[Rian]

так и пытался, а надо ещё какие-то условия проверять?

 <
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var
x:char;
begin
x:=StringGrid1.Cells[1,1][1];
StringGrid1.Cells[1,1]:=x;
end;
> 

[Гость]

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if Length(Value) > 1 then StringGrid1.Cells[ACol, ARow] := Value[1];
end;

[Rian]

гоню. не увидел переменной value