Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Привет народ 


PEC   (2002-03-26 12:24) [0]

Не большой вопросик!

Я к примеру ввожу какую-нибудь информацию в EDIT1 и нажимаю ENTER, как программно определить ,что нажата ENTER.

Зарание спасибо



Johnmen   (2002-03-26 12:28) [1]

Обрабатывать OnKeyPress...



PEC   (2002-03-26 12:30) [2]

>Johnmen

Это я понимаю !
А какой код ENTER



Johnmen   (2002-03-26 12:31) [3]

Пардон - OnKeyDown...



Goblinus   (2002-03-26 12:33) [4]

Код Enter - 13, если не ошибаюсь.



PEC   (2002-03-26 12:36) [5]

Спасибо



Виктор Щербаков   (2002-03-26 12:39) [6]


> Код Enter - 13, если не ошибаюсь.

Лучше использовать VK_RETURN.



Andrey007   (2002-03-26 12:41) [7]

А чем это лучше?



Alx2   (2002-03-26 12:43) [8]

Переносимость :)



Виктор Щербаков   (2002-03-26 12:44) [9]

Переносимость исходников!
Где гарантия, что VK_RETURN всегда будет равна 13?



Andrey007   (2002-03-26 12:44) [10]

А вообще код клавиши можно определять так: на OnKeyDown на форме вешаешь такой обработчик:
ShowMessage(IntToStr(key))



Andrey007   (2002-03-26 12:47) [11]

>Где гарантия, что VK_RETURN всегда будет равна 13?

Иногда она бывает написана в ТЗ :)



Johnmen   (2002-03-26 12:49) [12]

>Виктор Щербаков © :
1. Переносимость куда ?
2. А где гарантия существования виндов через 10 лет ?



Alx2   (2002-03-26 12:52) [13]

>1. Переносимость куда ?
Мало ли... на Mac, например, на уровне исходных кодов :)



Andrey007   (2002-03-26 12:57) [14]

> А где гарантия существования виндов через 10 лет?

А где гарантия существования Delphi через 10 лет? VK_RETURN - это не более чем дельфийская переменная, насколько я знаю.



Виктор Щербаков   (2002-03-26 13:01) [15]


> VK_RETURN - это не более чем дельфийская переменная, насколько
> я знаю.

А Virtual-Key Codes в SDK не пробовал смотреть?



Юрий Зотов   (2002-03-26 13:03) [16]

> VK_RETURN - это не более чем дельфийская переменная, насколько я знаю.

Вообще-то, это не переменная, а целая константа - код виртуальной клавиши. Определены эти константы в самой системе, а Delphi их лишь импортирует. См. раздел Virtual-Key Codes в SDK.



Andrey007   (2002-03-26 16:40) [17]

Да, опростоволосился...



IronHawk   (2002-03-26 16:58) [18]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then ShowMessage("KY-KY")
else ShowMessage("NO-NO");
end;



Sergey_R   (2002-03-26 18:26) [19]

Пишешь на OnKeyPress <Edit1>
SystemParametersInfo(SPI_SETBEEP,0,nil,0);
case key of
"0".. "9", "-", chr (8): ;
".": if pos(".",Edit1.text)<>0 then
key:=chr(0);
chr(13): if Sender= Edit1 then
begin
........
end;
end;
Собственно, все. Удачи!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.029 c
1-22715           Di_wind               2002-03-26 21:07  2002.04.08  
Динамическое создание.


1-22684           lipskiy               2002-03-24 23:23  2002.04.08  
TThread: Что значит ошибка


1-22652           Goblinus              2002-03-27 18:55  2002.04.08  
RichEdit


4-22871           Gavrozoid             2002-02-05 14:59  2002.04.08  
Нужно достать Handle окна под мышой


14-22798          Pete                  2002-02-23 11:08  2002.04.08  
DelphiX