Readkey
uses crt;
var a:char;
begin
a:=readkey;
case a of
'1':write('qwrqwr'); {При нажатии на 1 "сообщение"}
end.
Цитата:
Originally posted by bnm
Помогите кто знает, как это записывается в делфи:
uses crt;
var a:char;
begin
a:=readkey;
case a of
'1':write('qwrqwr'); {При нажатии на 1 "сообщение"}
end.
Помогите кто знает, как это записывается в делфи:
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!!!!");
Вот.
Цитата:
Originally posted by lord Kelvin
Form1 там ищешь Events (события) - там onKeyPress по нему дважды мышкой... Появиться ф-ция. Там пишешь case Key of '1' : ShowMessage("Gyyyyyy!!!!");
Вот.
Form1 там ищешь Events (события) - там onKeyPress по нему дважды мышкой... Появиться ф-ция. Там пишешь case Key of '1' : ShowMessage("Gyyyyyy!!!!");
Вот.
Кстати, если на форме есть другие элементы редактирования, то неплохо бы поставить свойство KeyPreview формы Formq в значение TRUE. В противном случае, сообщение о нажатии клавиши может и не дойти до формы.
А как например при нажатии на ENTER выполнить нажатие какой либо кнопки.К примеру есть поле edit,кнопка(button) и при нажатии на ENTER нажимается эта кнопка процедура которой записывает слово "Hello" в поле edit.Если кто знает как это сделать, большая просьба помочь.
Цитата:
Originally posted by bnm
А как например при нажатии на ENTER выполнить нажатие какой либо кнопки.К примеру есть поле edit,кнопка(button) и при нажатии на ENTER нажимается эта кнопка процедура которой записывает слово "Hello" в поле edit.Если кто знает как это сделать, большая просьба помочь.
А как например при нажатии на ENTER выполнить нажатие какой либо кнопки.К примеру есть поле edit,кнопка(button) и при нажатии на ENTER нажимается эта кнопка процедура которой записывает слово "Hello" в поле edit.Если кто знает как это сделать, большая просьба помочь.
Два раза щелкаешь по Button и у тебя появляется функция (что-то типа onClick) там пишешь Edit1.Text="Cewl KoD3R";
Оффтоп: Особенно забавляет ".Если кто знает как это сделать...".=)
Цитата:
Originally posted by lord Kelvin
Оффтоп: Особенно забавляет ".Если кто знает как это сделать...".=)
Оффтоп: Особенно забавляет ".Если кто знает как это сделать...".=)
Ну, программировать по-разному можно. Например, как в голивудской лапше на уши, тупо молотить по клаве. Мышка у них хоть бывает? Что-то ни разу не замечал...