Есть поле которое допускает только ввод символа Х. Если пользователь вводит другой символ, то он должен быть удален.
Вот я написал так, но почему-то не работает? Что- то не так? Может есть альтернативные способы отключения ввода всех клавиш кроме определенных?
Станартная процедура 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;
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;
Вместо этого оно заменяет первый символ на введенный из клавы.
