Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c