Как в StringGrid в ячейку вводить только один символ?

← →
abba (2007-02-14 21:01) [0]

Как в StringGrid в ячейку вводить только один символ?
Может есть функция, которая за это отвечает? Или придётся писать вручную?

← →
Virgo_Style © (2007-02-14 21:23) [1]

abba (14.02.07 21:01)
Вручную. А лучще бросай это дело уже сейчас, дальше будет еще тяжелее.

← →
abba (2007-02-14 21:27) [2]

А почему?

← →
RASkov (2007-02-14 21:56) [3]

> [0] abba (14.02.07 21:01)

Именно вводить нужно 1 символ или может хватит только отображать 1 символ?

procedure TForm1.FormCreate(Sender: TObject); var R, C: Integer; begin for R:= 0 to 4 do for C:= 0 to 4 do StringGrid1.Cells[R,C]:="123456"; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+4, StringGrid1.Cells[ACOl, AROw][1]); end;

← →
RASkov (2007-02-14 22:00) [4]

> [0] abba (14.02.07 21:01)

Вот и вводить типа так можно ограничить:
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin if Length(Value)>0 then StringGrid1.Cells[ACol, ARow]:=Value[1]; end;

← →
abba (2007-02-14 22:02) [5]

Мне нужно, чтобы я мог вводить в ячейку только один символ и не более. Мне придётся вручную или можно как-то проще?

← →
abba (2007-02-14 22:02) [6]

Спасибо большое.

Как в StringGrid в ячейку вводить только один символ? Найти похожие ветки