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

Вниз

создание функций в run_time   Найти похожие ветки 

 
bober   (2003-12-12 14:01) [0]

Добрый день!
создал в run-time edit
присваиваю
edit.onkeypress:=keypress;

сама процедура обрабатывает нажатие клавиш

procedure Tform1.keypress(sender:Tobject;var KEY:char);
begin
end;

Как в процедуру передать параметр Key и как в параметр поместить код клавиши?


 
Erik   (2003-12-12 14:05) [1]

А в чем проблема? Key содержит нажатую клавишу при возникновении события. А второе Key := "a";


 
bober   (2003-12-12 14:21) [2]

не получается скомпилировать
на
edit.onkeypress:=keypress;
ругается
incompatible types: "parametr list differ"
а на процедуру
declaration of "keypress" differs from previous declaration

не могу понять в чём трабла


 
Erik   (2003-12-12 14:40) [3]

Наверное сегодня день перезагрузок, перегрузи винды.


 
bober   (2003-12-12 14:55) [4]

А в чем проблема?

как параметр key передать в выражении
edit.onkeypress:=keypress;

если
edit.onkeypress:=keypress(key);
то где присваиватся код нажатой клавиши key?


 
panov   (2003-12-12 15:00) [5]

>bober (12.12.03 14:55) [4]
Параметр передаешь не ты, а система обрабатывает нажатие кнопки на клавиатуре и передает код нажатой клавиши в твою процедуру обработки.

А ошибка при компиляции возникает из-за того, что определение твоей процедуры обработки в классе формы и в секции реализации отличается. Исправь различия.



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
14-86486
Alekzzz
2003-12-04 02:25
2003.12.26
Где взять компонент типа MediaPlayer?


1-86346
LastLamer
2003-12-12 15:55
2003.12.26
TreeView, exchange nodes


1-86434
race1
2003-12-13 07:34
2003.12.26
unicode vs. русс.


1-86399
Islander
2003-12-08 12:06
2003.12.26
Изменение размеров кнопок под размер системного шрифта


3-86297
Vick
2003-12-01 18:53
2003.12.26
Файловые операции в MSSQL





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский