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

Вниз

ПРИВЕТ ВСЕМ!!! Не подскажите: как сделать так,   Найти похожие ветки 

 
@andrew ©   (2002-01-11 18:35) [0]

...чтобы в Edit или MaskEdit вводились только цифры? Спасибо.


 
Юрий Зотов ©   (2002-01-11 20:16) [1]

Попробуйте вот что:

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);


 
Nikolay ©   (2002-01-11 21:54) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ["0".."9"]) then Key := #0;
end;



 
Nikolay ©   (2002-01-11 21:56) [3]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ["0".."9"]) then Key := #0;
end;


 
aus ©   (2002-01-12 00:31) [4]

В допустимые символы нужно добавить #8 - чтобы backspace работал
(это для события OnKeyPress)


 
Спасибо   (2002-01-12 13:02) [5]

Спасибо.



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

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
14-100054
Феликс
2001-12-10 23:12
2002.01.31
Билл Гейтс:


4-100119
Mikola
2001-12-04 17:11
2002.01.31
Сокеты (Sockets) .Основные принципи роботы с ними. Функции (Win32 API) для роботы с сокетами.


7-100075
Win
2001-10-20 12:56
2002.01.31
TRegistry


4-100109
swr
2001-12-03 15:05
2002.01.31
Как удалить несколько строк в Excel средстами Delphi ?


14-100062
Лисий Хвост
2001-12-10 09:22
2002.01.31
Программистам-Битломанам