Стр. 124 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
124
//если нажат Enter, то передача управления компоненту Edit2
#13:Edit2.SetFocus
//остальные клавиши запрещены
else
key:=#0;
end;
end;
6. Создадим процедуру Edit2KeyPress для компонента Edit2. Она нужна
для обработки события OnKeyPress. Опишем процедуру следующим образом.
//процедура выполняется при нажатии клавиши в поле Edit2
procedure Tform1.Edit2KeyPress(Sender: Tobject; var Key: Char);
begin
case key of
//разрешены цифровые клавиши и забой BackSpace
'0'..'9',#8:;
//если нажат Enter, то передача управления компоненту Edit3
#13:Edit3.SetFocus
//остальные клавиши запрещены
else
key:=#0;
end;
end;
7. Создадим процедуру Edit3KeyPress для компонента Edit3. Она нужна
для обработки события OnKeyPress. Оформим ее следующим образом.
//процедура выполняется при нажатии клавиши в поле Edit3
procedure Tform1.Edit3KeyPress(Sender: Tobject; var Key: Char);
begin
case key of
//разрешены цифровые клавиши и забой BackSpace
'0'..'9',#8:;
//запятая и точка в числе заменяются на десятичный разделитель
',','.':
begin
// замена на десятичный разделитель
key:=DecimalSeparator;
//запрет на ввод в строку второго десятичного разделителя
if pos(key,Edit3.Text)<>0 then
key:=#0;
end;
//нажат Enter