Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

procedure TNEdit1.KeyPress(var key:char);

begin

case key of

'0'..'9', #13, #8: ;

'-' : if Length(text)0 then key := #0;

else

if not ((key=DecimalSeparator)and(pos(DecimalSeparator,text)=0)) then Key:=#0;

end;

inherited KeyPress(key);

end;

end.

Компонента реагирует на нажатие пользователем клавиши в поле ввода процедурой TNEdit.KeyPress. Eю мы заменили соответствующюю процедуру базового класса. В качестве параметра процедуре передается нажатая клавиша (вернее её код). Перед выводом в рабочую область числа мы проверяем это число. Если оно не содержит цифру, код клавиш Enter и Backspace, или вводится минус в середине числа, либо вводится второй разделитель(.), то соответствующему коду клавиши присваевается #0 и символ не выводится в рабочюю область. Для проверки работоспособности компоненты мы её протестируем.

Тестируем компоненту

Положите на форму кнопку (Button1) и метку (Label1). В Uses добавьте имя нашего модуля TNEdit. В раздел обьявления приложения добавьте инструкцию обьявления компоненты. А в событии OnCreate формы добавьте процедуру создания компоненты. Вот что должно у вас получиться:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, NEdit1;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

Рекомендуем скачать другие рефераты по теме: доклад по обж, ответ 3.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата