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

Вниз

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

← →
Дундук   (2002-07-05 03:53) [0]

Братцы, а можно ли в StringGrid задать маску? Например для ввода номера телефона ###-##-##. Я конечно сам не пробовал. Гуляя по форуму навеяло. Пойду пробовать. Варианты есть? Пишите.

---

← →
Дундук   (2002-07-05 04:23) [1]

Все просто оказалось. На событие OnGetEditMask вешаем
Value:="###-##-##";

Получаем:
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
Value:="###-##-##";
end;

ВСЕ!!!

---

← →
Вася я   (2002-07-05 04:32) [2]

А в DBGrid как то же самое сделать?

---

← →
Дундук   (2002-07-05 04:49) [3]

Ага. Делаем значит так.
На форме есть элемент типа TTable, заходим
в редактор полей этого компонента. Добавляем поле из БД
и ставим ему свойство EditMask ###-##-##. Все.
При вводе в DBGrid получаем 555-55-55.

---

← →
Dream   (2002-07-10 04:23) [4]

А как насчет маски для символов из определенного списка?
Может кто знает, подскажите плз!

---

← →
TTCustomDelphiMaster   (2002-07-10 08:36) [5]

Dream (10.07.02 04:23)

Попробуй убивать ненужные символы таким образом
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key="A" then
Key := Chr(0);
end;

---

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

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

Наверх

Память: 0.45 MB
Время: 0.004 c