Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
14-63828
Praco
2003-02-04 15:23
2003.02.20
Документация по компонентам на страничке


7-63875
dm_
2002-12-22 18:30
2003.02.20
Как обращаться к портам ввода-вывода в Kylix?


7-63869
SPIRIT
2002-12-20 01:31
2003.02.20
Работа с памятью


14-63733
Ketmar
2003-02-03 15:42
2003.02.20
---|Ветка была без названия|---


1-63610
AlexG
2003-02-11 07:58
2003.02.20
создание ActiveX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский