Усім гарного дня панове. Ще раз хочу повернутись до попередньої теми.
Створив я форму з двома компонентами Button та Edit.
procedure TAuxiliaryForms.SetFormInput;
var
Edit: TNumEdit;
Button: TButton;
begin
fForm := TForm.Create(Nil);
Try
fForm.BorderStyle := bsDialog;
fForm.Width := 166;
fForm.Height := 105;
fForm.Caption := 'Введіть значення';
fForm.Font.Size := 16;
fForm.Font.Name := 'Monotype Corsiva';
fForm.Position := poMainFormCenter;
Edit := TNumEdit.Create(fForm);
Edit.Width := 150;
Edit.Top := 4;
Edit.Left := 5;
Edit.Parent := fForm;
Button := TButton.Create(fForm);
Button.Width := 150;
Button.Height := 35;
Button.Top := 40;
Button.Left := 5;
Button.Caption := 'OK';
Button.ModalResult := mrOk;
Button.Parent := fForm;
If fForm.ShowModal = mrOK Then
Begin
If Edit.Text = '' Then
Exit
Else
Begin
SetNumValue(StrToFloat(Edit.Text));
SetStrValue(Edit.Text);
End;
End;
Finally
fForm.Free;
End;
end;
Для того щоб в Edit обробити подію KeyPress я зробив такі маніпуляції:
Створив новий тип та перевизначив в ньому подію KeyPress
TNumEdit = Class (TCustomEdit)
Protected
Procedure KeyPress(Var Key: Char); Override;
End;
procedure TNumEdit.KeyPress(var Key: Char);
begin
inherited;
case Key of
'0'..'9', #8, #110: ;
else
Key := #0;
end;
end;
В мене питання чому backspace #8 в мене працює, а не вводиться та крапка decimal point #110 в створеній моїй формі???
Як мені зробити щоб в те поле користувач міг вводити не тільки числа типу Integer а й типу Real та Extended?
