| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поле EDIT [D7, WinXP]

mouse_web ©   (2004-08-05 17:36:00) 

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

---

XXX   (2004-08-06 10:41:00) [1]

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

---

XXX   (2004-08-06 10:40:00) [2]

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

---

GuAV   (2004-08-05 18:40:00) [3]

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.

---

MacroDenS   (2004-08-05 18:16:00) [4]

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

---

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

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

---

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

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

---

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

спасибо

---

MacroDenS   (2004-08-05 17:39:00) [8]

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

пример:

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


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

---

Наверх