Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

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



Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.022 c
3-58539
Виктор
2003-08-27 14:36
2003.09.18
QReport


7-58943
R4D][
2003-07-04 19:01
2003.09.18
NOP


1-58634
andriy
2003-09-05 12:47
2003.09.18
Excell: Workbooks.Close?


1-58636
Рамиль
2003-09-05 11:52
2003.09.18
Строка с символами #0.


6-58799
AlexT1000
2003-07-18 14:17
2003.09.18
как реализовать фильтратор писем для входящей почты?