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

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

Dream (10.07.02 04:23)

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

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