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

Вниз

поле EDIT   Найти похожие ветки 

 
mouse_web   (2004-08-05 17:36) [0]

Как сделать, чтобы в поле EDIT вводились только цифры?


 
MacroDenS ©   (2004-08-05 17:39) [1]

onkeypress отслеживаешь что нажимается и что не нужно зануляем...

пример:

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


Только не забудь еще код бекспейса в множество поместить.


 
mouse_web   (2004-08-05 17:47) [2]

спасибо


 
mouse_web   (2004-08-05 18:01) [3]

а какой код у бекспейса?
я что-то не могу найти...


 
Алхимик ©   (2004-08-05 18:08) [4]

Отладчиком посмотреть никак?
#08


 
MacroDenS ©   (2004-08-05 18:16) [5]

>>Отладчиком посмотреть никак?
конечно ж никак, кстати а что такое отладчик??? :-)


 
GuAV ©   (2004-08-05 18:40) [6]

unit NumEdit;

interface

uses
 SysUtils, Classes, Controls, StdCtrls, Windows;

type
 TNumEdit = class(TEdit)
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("Samples", [TNumEdit]);
end;

procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.Style := Params.Style or ES_NUMBER;
end;

end.


 
XXX ©   (2004-08-06 10:40) [7]

Из RxLib воспользуйся CurrencyEdit-ом, сойдет! :-)


 
XXX ©   (2004-08-06 10:41) [8]

Из RxLib воспользуйся CurrencyEdit-ом, сойдет! :-)



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

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

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1092129434
Урфин Джус
2004-08-10 13:17
2004.08.22
Создание/запись бинароного файла


14-1091616304
Ivolg
2004-08-04 14:45
2004.08.22
Ресурс


3-1091204257
Донской
2004-07-30 20:17
2004.08.22
Переименование поля в ACCESS из дельфи


1-1091972182
Toshanius
2004-08-08 17:36
2004.08.22
Програмное добавление TabSheet a


1-1091651420
Some man
2004-08-05 00:30
2004.08.22
CD Write/Read