Главная страница
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.007 c
1-70716
nwc_eminem
2002-07-11 15:14
2002.07.22
Как получить параметры, переданные при запуске программы?


1-70762
Doctor Deejay
2002-07-02 21:54
2002.07.22
Меню, созданное динамически


3-70641
Дмитрий757567
2002-07-01 17:58
2002.07.22
SP_WHO


6-70850
Horol
2002-05-10 16:02
2002.07.22
сети, сети, сети


1-70819
Дундук
2002-07-09 07:42
2002.07.22
Работа с датой