поле 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]

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

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.

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

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