Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

StringGrid   Найти похожие ветки 

← →
Марат   (2004-03-23 05:49) [0]

Привет мастера! Вопрос такой: как в StringGrid сделать так, чтобы можно было бы набирать только цифры и не больше 5 символов?
Пробовал через свойство OnGetEditMask, но не хватило "тямы".

---

← →
Яичница ©   (2004-03-23 07:00) [1]

procedure TForm1.StringGrid2GetEditMask(Sender: TObject; ACol,
 ARow: Integer; var Value: String);
begin
 Value :=  "99999";
end;

OnGetEditMask does not occur unless the Options property includes goEditing. - не забудь включить эту опцию.

+ F1 на TEditMask -)

---

← →
TUser ©   (2004-03-23 07:53) [2]

В OnKeyPress пиши
  if (not (key in ["0".."9"])) or (length(cells[col,row])=5) then key:=#0;

---

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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c