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

OnClick   Найти похожие ветки 

← →
Наташа ©   (2003-02-11 12:17) [0]

Мастера Delphi! подскажите пожалуйста. Существует некая процедура, Когда она вызывается из обработчика OnClick какой-либо кнопки, все работает хорошо, но Если Вызвать из Onclick какой-либо клавиши клавиатуры, то не работает.
If Key=#13 then
{некая процедура}
Key=#0
В чем дело?

---

← →
mate ©   (2003-02-11 12:23) [1]

Чё-то вопрос не понятен. Процедуру onKeyPress пробовали использовать?

---

← →
D   (2003-02-11 12:23) [2]

Проверь в режиме пошаг.отладки. Может, вообще сюда

If Key=#13 then
{некая процедура}

(в OnKeyDown или OnkeyPressed) не заходит

---

← →
gek ©   (2003-02-11 12:27) [3]

keypreview=true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then
superbuttononclick(self)

end;

---

← →
myor ©   (2003-02-11 12:51) [4]

если не ошибаюсь,
If Key=#13 then... в OnkeyPressed().

---

← →
han_malign ©   (2003-02-11 13:21) [5]

Вероятно, в том и проблема, что VK_RETURN - перехватывается контролом до OnKeyPressed и соответственно (Key=#13) никогда не приходит. (Хотя это надо проверить - не уверен).

---

← →
Sheriff   (2003-02-11 13:26) [6]

либо KeyPreview у формы установить в true...

---

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

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



Память: 0.45 MB
Время: 0.013 c