Текущий архив: 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.46 MB
Время: 0.009 c
