Форум: "Основная";
Поиск по всему сайту: 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.025 c
4-22886           Котелок               2002-02-07 06:13  2002.04.08  
Api по Com порту и модему


3-22578           ghost_by              2002-03-14 21:19  2002.04.08  
ACCESS и threads


3-22542           Cyber                 2002-03-15 07:48  2002.04.08  
Backup в Interbase


1-22702           Di                    2002-03-26 16:24  2002.04.08  
Как определить, насколько (в пикселях) прокручен TreeView своей полосой прокрутки?


1-22657           Serd_hhc              2002-03-26 14:09  2002.04.08  
Как сменить текст моей консольной проги.