Как вводить в String Grid строку ограниченной длины?

[Vova777]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
 if IsCharAlphaNumeric(key) and (Length(Cells[Row,Col])>=5) then key:=#0;
end;

Этот код ограничивает только для первой выбранной ячейки, во второй уже ничего не ограничивает.

[SNUPY]

эм?

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
 if IsCharAlphaNumeric(key) and (Length(Cells[Col,Row])>=5) then key:=#0;
end;

ЗЫ подумайте над тем, что еще можно вводить копи-пастом значения....

[Vova777]

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

эм?

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
 if IsCharAlphaNumeric(key) and (Length(Cells[Col,Row])>=5) then key:=#0;
end;

ЗЫ подумайте над тем, что еще можно вводить копи-пастом значения....

какое решение тут есть?

[SNUPY]

Просто и красиво =)

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if length(Value)>5 then
    TStringGrid(Sender).Cells[ACol, Arow] := copy(Value, 1,5);
end;