Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Вниз
поле 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.033 c
