| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Маска в StringGrid [D5]
Дундук © (2002-07-05 03:53:00)Братцы, а можно ли в StringGrid задать маску? Например для ввода номера телефона ###-##-##. Я конечно сам не пробовал. Гуляя по форуму навеяло. Пойду пробовать. Варианты есть? Пишите.
TTCustomDelphiMaster (2002-07-10 08:36:00) [1]Dream (10.07.02 04:23)
Попробуй убивать ненужные символы таким образом
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key="A" then
Key := Chr(0);
end;
Dream (2002-07-10 04:23:00) [2]А как насчет маски для символов из определенного списка?
Может кто знает, подскажите плз!
Дундук (2002-07-05 04:49:00) [3]Ага. Делаем значит так.
На форме есть элемент типа TTable, заходим
в редактор полей этого компонента. Добавляем поле из БД
и ставим ему свойство EditMask ###-##-##. Все.
При вводе в DBGrid получаем 555-55-55.
Вася я (2002-07-05 04:32:00) [4]А в DBGrid как то же самое сделать?
Дундук (2002-07-05 04:23:00) [5]Все просто оказалось. На событие OnGetEditMask вешаем
Value:="###-##-##";
Получаем:
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
Value:="###-##-##";
end;
ВСЕ!!!
| |
