Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Вниз
Помогите! Найти похожие ветки
← →
Dimchik (2005-01-04 18:03) [0]Добрый вечер.Я конечно извиняюсь за такой глупый вопрос но я всего 3 месяца в Delphi и мало знаю. Скажите пожалуйста как сделать так при нажатии клавиши 1 в edit появлялась цифра один, нажал на 2 появилась двойка.
← →
begin...end © (2005-01-04 18:07) [1]> Dimchik (04.01.05 18:03)
Если Edit имеет фокус ввода, то при нажатии клавиши 1 цифра "1" в Edit появится автоматически. Если требуется, чтобы она появлялась там и в том случае, когда Edit не имеет фокуса ввода, следует в обработчик TForm.OnKeyPress поместить соответствующий код (напр., Edit.Text := Key), не забыв установить свойство TForm.KeyPreview в False.
← →
begin...end © (2005-01-04 18:08) [2]Извиняюсь, в данном случае TForm.KeyPreview должно быть как раз True.
← →
Agentch007 (2005-01-04 18:10) [3]1)Нужно просто поместить курсор в этот самый Edit1
2)Нажать на кнопку "1"
3)Подождать чуть чуть
4)Отпустить кнопку
5)Срочно бежать в магазин за книжкой "Дельфи для чайников"
6)Подписатся на рассылку http://www.delphimaster.ru/mail.html
7)Выпить валерьянку и сформулировать свой вопрос конкретнее
P.C. Посмотрите программу Спокойной ночи дельфиши :)
← →
Dimchik (2005-01-04 18:16) [4]Не совсем то что нужно. Я делаю калькулятор и поэтому надо чтобы при нажатии клавиши в едитт добавлялась цифра то есть если я нажал один в едите появилась 1 потом нажал 2 в едите должно появиться 12.
← →
Dimchik (2005-01-04 18:17) [5]Agentch007
Не смешно!
← →
begin...end © (2005-01-04 18:20) [6]Посты [1] и [2] просьба не принимать во внимание.
← →
Dimchik (2005-01-04 18:24) [7]Ну так пожите мне или нет?
← →
Плохиш © (2005-01-04 18:31) [8]Хавай халяву:
Edit1.Text := Edit1.Text + "1";
← →
Dimchik (2005-01-04 18:31) [9]Вам что в падло помоч мне?
← →
Dimchik (2005-01-04 18:33) [10]Плохиш ©
Спасибо тебе огромное!
← →
novice__man (2005-01-04 18:39) [11]
Плохиш © (04.01.05 18:31) [8]
Хавай халяву:
Edit1.Text := Edit1.Text + "1";
А так можно и другие цифири писать :)
Edit1.Text := Edit1.Text + key
← →
Agentch007 (2005-01-04 18:44) [12]Надо хук на клаву ставить однозначно,а в обаботчике едита писать
const s="1234567890";
begin
if pos(Key,s)=0 then key:=#0;
иначе при переводе фокуса к примеру на кнопку какуюнибуль усё нифига не будет.procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_keydown then
begin
{Здесь писать обработку скан кодов для цифир от 0 до 10}
end;
end;
← →
Agentch007 (2005-01-04 18:50) [13]Можно кончно и через SetWindowsHook() но думаю это излишне будет,это уже кейспай будет а не калькулятор.:)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.043 c
