[Sahan911]

Доброго времени суток! Понадобилось в обработчике Edit`а OnKeyDown при выполнении определенных условий запретить ввод в него текста.(сделал я это через Key := 0) ,но по какой - то причине он все равно текст вводит( KeyPreview у формы стоит True). Пробовал так делать даже совсем без условий: тупо напрямую

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
key := 0;
end;

Все равно ничего. Помогите не ни как не разберусь в чем дело.

[nixel]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If key = #48 then Edit1.Enabled:= false; //key = VK_NUMPAD0 для нуля на цифровой клавиатуре
end;

Неужели так не работает?

[YVitaliy]

Посмотри на событие OnChange или OnKeyPress.

[Sahan911]

nixel, мне не Edit заблочить надо, если нажмут 0, а сделать так чтобы при наборе текста он не набирался в Edit. По идее это должно работаь с коммандой Key := 0; Поскольку key - то var параметр и разработчик Edit`а предусмотрел, что если key = 0, тогда считать что ничего не было нажато. Но у меня это не проходит почему - то. Видимо я в чем - то ошибся.

YVitaliy,

Посмотри на событие OnChange или OnKeyPress.

Мне условия нужно проверять: именно нажатую клавишу.В OnKeyPress если поставить Key = #0 то все работает как я хочу, но мне нужен виртуальный код клавиши, а не символ. В OnChange вообще нет ни виртуального кода клавиши, ни символа, и вообще как там запретить печать символа, если там только 1 параметр - объект, вызвавший процедуру?

[YVitaliy]

Так бы и сразу сказал. Для "залочки" есть свойство ReadOnly.
В OnKeyDown ставишь ReadOnly:=true, а в OnKeyUp - ReadOnly:=false;

[Sahan911]

О, спасибо, помогло. Я знал про это свойство, но тут его применить что - то недогадался.