Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Readkey

512
05 января 2005 года
bnm
124 / / 17.10.2004
Помогите кто знает, как это записывается в делфи:

uses crt;
var a:char;
begin
a:=readkey;
case a of
'1':write('qwrqwr'); {При нажатии на 1 "сообщение"}
end.
301
05 января 2005 года
lord Kelvin
897 / / 08.11.2004
Цитата:
Originally posted by bnm
Помогите кто знает, как это записывается в делфи:

uses crt;
var a:char;
begin
a:=readkey;
case a of
'1':write('qwrqwr'); {При нажатии на 1 "сообщение"}
end.


Form1 там ищешь Events (события) - там onKeyPress по нему дважды мышкой... Появиться ф-ция. Там пишешь case Key of '1' : ShowMessage("Gyyyyyy!!!!");
Вот.

302
06 января 2005 года
Sagittarius
648 / / 12.04.2003
Цитата:
Originally posted by lord Kelvin
Form1 там ищешь Events (события) - там onKeyPress по нему дважды мышкой... Появиться ф-ция. Там пишешь case Key of '1' : ShowMessage("Gyyyyyy!!!!");
Вот.


Кстати, если на форме есть другие элементы редактирования, то неплохо бы поставить свойство KeyPreview формы Formq в значение TRUE. В противном случае, сообщение о нажатии клавиши может и не дойти до формы.

512
06 января 2005 года
bnm
124 / / 17.10.2004
А как например при нажатии на ENTER выполнить нажатие какой либо кнопки.К примеру есть поле edit,кнопка(button) и при нажатии на ENTER нажимается эта кнопка процедура которой записывает слово "Hello" в поле edit.Если кто знает как это сделать, большая просьба помочь.
301
06 января 2005 года
lord Kelvin
897 / / 08.11.2004
Цитата:
Originally posted by bnm
А как например при нажатии на ENTER выполнить нажатие какой либо кнопки.К примеру есть поле edit,кнопка(button) и при нажатии на ENTER нажимается эта кнопка процедура которой записывает слово "Hello" в поле edit.Если кто знает как это сделать, большая просьба помочь.


Два раза щелкаешь по Button и у тебя появляется функция (что-то типа onClick) там пишешь Edit1.Text="Cewl KoD3R";

Оффтоп: Особенно забавляет ".Если кто знает как это сделать...".=)

10
07 января 2005 года
Freeman
3.2K / / 06.03.2004
Цитата:
Originally posted by lord Kelvin
Оффтоп: Особенно забавляет ".Если кто знает как это сделать...".=)


Ну, программировать по-разному можно. Например, как в голивудской лапше на уши, тупо молотить по клаве. Мышка у них хоть бывает? Что-то ни разу не замечал...

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог