Привет народ

← →
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 - это не более чем дельфийская переменная, насколько я знаю.

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

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

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

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

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

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

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;
Собственно, все. Удачи!

Привет народ Найти похожие ветки