Курсовая работа: Объектно-ориентированная разработка программ
case key of
'0'..'9': ; //можно вводить только цифры
',': ; //или дробный числа
#8 : ; // клавиша Back Space
#13 : Edit2.SetFocus ; // клавиша Enter, и переход на другое окно ввода
// Остальные символы - запрещены !
else key := Chr(0); // запрещаем отображать символ
end;
end;
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: char);
begin
case key of
'0'..'9': ; //можно вводить только цифры
',': ; //или дробный числа
#8 : ; // клавиша Back Space
#13 : Edit3.SetFocus ; // клавиша Enter, и переход на другое окно ввода
// Остальные символы - запрещены !
else key := Chr(0); // запрещаем отображать символ
end;
end;
procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: char);
begin
case key of
'0'..'9': ; //можно вводить только цифры
',': ; //или дробный числа
#8 : ; // клавиша Back Space
#13 : Button1.SetFocus ; // клавиша Enter, и переход на кнопку вычисления
// Остальные символы - запрещены !
else key := Chr(0); // запрещаем отображать символ