M
misterio
Задача :
Есть поле которое допускает только ввод символа Х. Если пользователь вводит другой символ, то он должен быть удален.
Вот я написал так, но почему-то не работает? Что- то не так? Может есть альтернативные способы отключения ввода всех клавиш кроме определенных?
Станартная процедура KeyPress
Вместо этого оно заменяет первый символ на введенный из клавы.
Есть поле которое допускает только ввод символа Х. Если пользователь вводит другой символ, то он должен быть удален.
Вот я написал так, но почему-то не работает? Что- то не так? Может есть альтернативные способы отключения ввода всех клавиш кроме определенных?
Станартная процедура KeyPress
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
var
GetStr : string;
begin
if (Key <> 'x') then
begin
MessageDlg('Символ недопустим!!', mtError, [mbOK],0);
GetStr := Edit1.Text;
Delete (GetStr, Length(GetStr)-1 ,1 );
Edit1.Text := GetStr;
end;
end;
Вместо этого оно заменяет первый символ на введенный из клавы.