Скачать: CL | DM;

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.008 c