Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Привет народ [D6, Win2k]

PEC © (2002-03-26 12:24:00)
Не большой вопросик!

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

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

Sergey_R (2002-03-26 18:26:00) [1]
Пишешь на 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;
Собственно, все. Удачи!

IronHawk (2002-03-26 16:58:00) [2]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then ShowMessage("KY-KY")
else ShowMessage("NO-NO");
end;

Andrey007 (2002-03-26 16:40:00) [3]
Да, опростоволосился...

Юрий Зотов (2002-03-26 13:03:00) [4]
> VK_RETURN - это не более чем дельфийская переменная, насколько я знаю.

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

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

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

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

Andrey007 (2002-03-26 12:57:00) [6]
> А где гарантия существования виндов через 10 лет?

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

Alx2 (2002-03-26 12:52:00) [7]
>1. Переносимость куда ?
Мало ли... на Mac, например, на уровне исходных кодов :)

Johnmen (2002-03-26 12:49:00) [8]
>Виктор Щербаков © :
1. Переносимость куда ?
2. А где гарантия существования виндов через 10 лет ?

Andrey007 (2002-03-26 12:47:00) [9]
>Где гарантия, что VK_RETURN всегда будет равна 13?

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

Andrey007 (2002-03-26 12:44:00) [10]
А вообще код клавиши можно определять так: на OnKeyDown на форме вешаешь такой обработчик:
ShowMessage(IntToStr(key))

Виктор Щербаков (2002-03-26 12:44:00) [11]
Переносимость исходников!
Где гарантия, что VK_RETURN всегда будет равна 13?

Alx2 (2002-03-26 12:43:00) [12]
Переносимость :)

Andrey007 (2002-03-26 12:41:00) [13]
А чем это лучше?

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

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

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

PEC (2002-03-26 12:36:00) [15]
Спасибо

Goblinus (2002-03-26 12:33:00) [16]
Код Enter - 13, если не ошибаюсь.

Johnmen (2002-03-26 12:31:00) [17]
Пардон - OnKeyDown...

PEC (2002-03-26 12:30:00) [18]
>Johnmen

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

Johnmen (2002-03-26 12:28:00) [19]
Обрабатывать OnKeyPress...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »