Удаление последнего символа

[misterio]

Задача :

Есть поле которое допускает только ввод символа Х. Если пользователь вводит другой символ, то он должен быть удален.

Вот я написал так, но почему-то не работает? Что- то не так? Может есть альтернативные способы отключения ввода всех клавиш кроме определенных?

Станартная процедура 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;

Вместо этого оно заменяет первый символ на введенный из клавы.

 

[misterio]

что Key передается как var-parameter (по ссылке)

Я не программист и мне это ни о чем не говорит.

 

[European]

Я не программист и мне это ни о чем не говорит.

0 ему присвой, если я правильно понял sax_ol

 

[misterio]

0 ему присвой

Кому? Вы можете писать словами, а не мысленно посылать сообщения?

А и еще оно фокус на начало строки кидает....как это можно в конец перекинуть?

 

[European]

Кому? Вы можете писать словами, а не мысленно посылать сообщения?

А вы не способны 2 сообщения связать?
Key := 0;

 

[misterio]

Да, только с маленькой поправкой
Код
if (Key <> 'x') then Key := #0;

О вот это дело!

А вы не способны 2 сообщения связать?

Не надо умничать.

0 ему присвой

- понятие неоднозначное.

 

[European]

Не надо умничать.

Не надо хамить