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().

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

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

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

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