Текущий архив: 2009.04.26;
Скачать: CL | DM;
Вниз
как запретить вводить символы в TEdit Найти похожие ветки
← →
b@v © (2009-03-17 09:22) [0]как запретить вводить символы в TEdit , конкретно мне не нужно вводить кавычки (")
← →
{RASkov} © (2009-03-17 09:24) [1]if Key=""" then Key:=#0;
на обработчик нажатия клавиш....
← →
{RASkov} © (2009-03-17 09:27) [2]а лучше так:
if Key in InvalidChars then Key:=#0;
InvalidChars: set of Char;, например InvalidChars:=["""];
...гибче
← →
D@nger (2009-03-17 09:28) [3]обрабатывй событие OnKeyPress
procedure TFmodul.srok_edtKeyPress(Sender: TObject; var Key: Char);
begin
if key=#34 then key:=#0;
end;
← →
b@v © (2009-03-17 09:30) [4]
> if Key=""" then Key:=#0;
> на обработчик нажатия клавиш....
>
Несовпадение типов. Делаю вот так, но он все равно позволяет ввводить данный символ :-(procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(Key = Ord(""")) then
Key = 0;
end;
← →
b@v © (2009-03-17 09:31) [5]
> D@nger (17.03.09 09:28) [3]
>
> обрабатывй событие OnKeyPress
>
> procedure TFmodul.srok_edtKeyPress(Sender: TObject; var
> Key: Char);
> begin
> if key=#34 then key:=#0;
> end;
Вот так классно работает, спасибо !!!
Страницы: 1 вся ветка
Текущий архив: 2009.04.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
