Главная страница
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
14-100064
MetallAdm
2001-12-11 15:01
2002.01.31
Доки По ДиректХ


7-100079
Serega_2
2001-10-22 13:31
2002.01.31
Работа с Word`ом


4-100106
maxi
2001-12-02 14:15
2002.01.31
Список задач по Alt-Ctrl-Del.


6-100031
krimer
2001-11-08 13:50
2002.01.31
как проследить события для TSERVERSOCKET в консольном приложении?


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