Главная страница
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.012 c
3-99900
Slava
2001-12-27 10:17
2002.01.31
MIDAS, Сервер приложений в виде DLL


4-100116
Miwa
2001-11-30 16:25
2002.01.31
Вывод сообщения


6-100035
митя
2001-11-08 18:08
2002.01.31
Импорт данных из Excel-я в Delphi


14-100056
\/\/ \/\/ \/\/
2001-12-02 10:14
2002.01.31
Помогите плииз!!!


1-99977
CaSHe
2002-01-14 02:30
2002.01.31
Очень нужен особый CheckListBox