|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
запрет нежелаемого ввода
если в коком то ячейке Edit использавается цифры и привводе текта приложение показывает ошибку
- то как сделать чтобы можно было вводить туда (в Edit) только цифры ? зарание спосибо Последний раз редактировалось Edi, 17.05.2009 в 22:19. |
#2
|
||||
|
||||
А не лучше-ли сразу воспользоваться TMaskEdit ?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
Чуть прочитал пост. В обработчике OnKeyPress
Код:
if not (Key in ['0'..'9', #8]) then Key := #0; |
#4
|
|||
|
|||
Цитата:
Я написал но не получилось. можно копию pas-файл и dfm-файл как оброзец ? |
#5
|
||||
|
||||
И что может неполучаться, поразительно.
dfm-файл Код:
object Form24: TForm24 Left = 0 Top = 0 Caption = 'Form24' ClientHeight = 339 ClientWidth = 635 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Edit1: TEdit Left = 32 Top = 32 Width = 121 Height = 21 TabOrder = 0 Text = 'Edit1' OnKeyPress = Edit1KeyPress end end Код:
unit Unit24; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm24 = class(TForm) Edit1: TEdit; procedure Edit1KeyPress(Sender: TObject; var Key: Char); end; var Form24: TForm24; implementation {$R *.dfm} procedure TForm24.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', #8]) then Key := #0; end; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |