Доброго времени суток! Понадобилось в обработчике Edit`а OnKeyDown при выполнении определенных условий запретить ввод в него текста.(сделал я это через Key := 0) ,но по какой - то причине он все равно текст вводит( KeyPreview у формы стоит True). Пробовал так делать даже совсем без условий: тупо напрямую
Код:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
key := 0;
end;
Все равно ничего. Помогите не ни как не разберусь в чем дело.