Обработчик событий OnKeyPress

← →
Igor_ (2004-09-23 22:19) [0]

Нада сделать компонент типа Edit"a, только чтобы он реагировал на нажатие определённых клавиш, например только на цифры. Подскажите плз как в своём компоненте изменить OnKeyPress

← →
GuAV © (2004-09-24 00:25) [1]

нужно НЕ изменить OnKeyPress, а override KeyPress.

> например только на цифры

Это делается и без KeyPress - в CreteParams флаг ES_NUMBER

← →
Igor_ (2004-09-25 14:56) [2]

>Это делается и без KeyPress - в CreteParams флаг ES_NUMBER

А можно с огрызком кода плз, а то я не совсем понял что за CreteParams.

← →
xmrz (2004-09-25 15:48) [3]

Пример обработчика отсекающего все цифры, "*", "?" и "."
procedure TForm1.MyEditKeyPress (Sender: TObject; var Key: Char); begin case Key Of "1".."9", "*", "?", "." : Key := #0; end; end;

Такой же можно встроить и в компонент переопределив процедуру KeyPress родителя.

>Igor_ (25.09.04 14:56) [2]
type TNumberEdit = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; .... procedure TNumberEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_NUMBER; end;

← →
Igor_ (2004-09-26 10:38) [5]

Спасибо, помогло

Обработчик событий OnKeyPress Найти похожие ветки