Скачать: CL | DM;

Как в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.04 c