Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.22;
Скачать: CL | DM;

Вниз

Маска в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-70627
GAlexis
2002-07-01 12:04
2002.07.22
Oracle или InterBase?


3-70588
ANA
2002-06-27 11:36
2002.07.22
Поиск в форматированного текста


3-70633
opfr34
2002-07-01 14:15
2002.07.22
Список MSSQL серверов в сети


6-70840
SLY-YO
2002-05-11 14:21
2002.07.22
Исходники программы Remote Administrator


3-70660
Сержик
2002-07-02 11:45
2002.07.22
Как бы генератор установить на max?