OnKeyPress

← →
DelphiNew (2003-09-04 15:40) [0]

Существует такоё вот код
procedure TFrmSpravOtpr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [""","\","/"," ","-","0".."9","A".."Z","a".."z","

← →
ZEE (2003-09-04 15:43) [1]

а выбор чего?
...Edit1KeyPress(...);
...
if key=#13 then
begin
//нажат Enter
end;
код с наружи этой проверки будет выполнятся при нажатии любой клавиши...

← →
Skier (2003-09-04 15:44) [2]

-Какая такая "выбора" ?
-это что "

← →
DelphiNew (2003-09-04 15:48) [3]

это русские буквы почему-то так сервер обработал

← →
DelphiNew (2003-09-04 15:50) [4]

2 ZEE
А как избежать этого

← →
ZEE (2003-09-04 15:52) [5]

>DelphiNew © (04.09.03 15:50) [4]
засунуть все в
if key=#13 then
begin

end;

← →
DelphiNew (2003-09-04 16:02) [6]

Получается така же фигня каждая клавиша работает как Enter

← →
Skier (2003-09-04 16:03) [7]

if key in [...]then
Begin
FrmSpravOtpr.IBQSpr.Locate("A01",trim(Edit1.text),[loPartialKey]);
End;
else if key=#13 then
Begin
FrmMain.EdtOtpr2.Text:=FrmSpravOtpr.IBQSprA01.AsString;
FrmMain.EdtOtpr3.Text:=FrmSpravOtpr.IBQSprA2.AsString;
close;
end;

← →
Skier (2003-09-04 16:04) [8]

Ой ! ";" перед убрать нуна !

← →
Skier (2003-09-04 16:05) [9]

В смысле - перед else. :)

← →
DelphiNew (2003-09-04 16:15) [10]

В таком случае как и раньше просто закрывается форма по нажатию любой клавиши

← →
DelphiNew (2003-09-05 10:18) [11]

Люди проблема так и не решилась. Помогите пожалуйста.
procedure TFrmSpravOtpr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [""","\","/"," ","-","0".."9","A".."Z","a".."z","

← →
Smithson (2003-09-05 10:22) [12]

Она наверное не закрывается, а перекрывается FrmMain.Show.

← →
DelphiNew (2003-09-05 10:29) [13]

Точно!!! спасибо!!!

← →
Armaniak (2003-09-05 10:32) [14]

Правильный ответ Smithson

OnKeyPress Найти похожие ветки