В поле Edit обработчик события KeyPress

@Manya89 · Регистрация: 21.02.2012

Author24 — интернет-сервис помощи студентам

делаю замену NumbersOnly вручную:

Delphi

procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;
а хотела:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;

Делала обработчик событий в Edit. А почему вышло без Edit1? просто в Form1???

@Puporev · 21.02.2012, 11:23

Значит нужно выделить Эдит и в инспекторе объектов кликнуть на вкладке Events
OnKeypress

@Manya89 · 21.02.2012, 11:42 **[ТС]**

Я так и делала. Для проверки создала второй Эдит без ничего. В нём всё выводится. Но почему в названии Процедуры не присутствует Едит не понятно. Боюсь, что бы отсутствие в названии едит не повлияло на другие компоненты на этой форме, т. е что бы это действие не распростронялось на них. И вообще почему в названии нет едит???

@Puporev · 21.02.2012, 11:44

Значит вы Выбираете событие OnKeyPres не для эдита а для формы.

@Puporev · 21.02.2012, 11:50

Вот так делайте

@Manya89 · 21.02.2012, 11:53 **[ТС]**

Самое обидное, по десять раз пробавала, всегда проверяю, что бы для едит, а он всё равно Едит не пишет

@Puporev · 21.02.2012, 11:54

Тогда я пас.

@Manya89 · 21.02.2012, 11:56 **[ТС]**

Добавила вручную Edit1 в название и конечно он показал ошибку

Добавлено через 2 минуты
Спасибо большое за ответы!

@Puporev · 21.02.2012, 11:58

Попробуйте делать в этой заготовке, интересно что будет....

@unick12345 · 21.02.2012, 12:00

а запишите прямотаки процедуру Edit1KeyPress в код, а потом для Edit1 укажите что эта процедура для OnKeyPress, и вверху пропишите

@Puporev · 21.02.2012, 12:04

Можно и так. Скопируйте эту процедуру и вставьте в код, а потом инициируйте.

@Manya89 · 21.02.2012, 12:19 **[ТС]**

Сейчас попробую

Добавлено через 11 минут
Большое спасибо за советы!!!! Я сделала это!!! В OnKeyPress я писала KeyPress. А надо было в OnKeyPress писать Edit1KeyPress! Воя тупая

Пошла ума набираться

@Puporev · 21.02.2012, 12:19

Сообщение от Manya89

Пошла ума набираться

Удачи!

@Manya89 · 21.02.2012, 12:21 **[ТС]**

Ага

)) Кстати у вас отличный форум!!! Я зарегистрировалась ещё в двух - там хуже.

@unick12345 · 21.02.2012, 12:21

самокритика-хорошее свойство программиста

далеко пойдете

@Manya89 · 21.02.2012, 12:45 **[ТС]**

Спасибки

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	21.02.2012, 12:00	10
	а запишите прямотаки процедуру Edit1KeyPress в код, а потом для Edit1 укажите что эта процедура для OnKeyPress, и вверху пропишите 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 12:19	13
	Сообщение от Manya89 Пошла ума набираться Удачи! 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 12:21 [ТС]	14
	Ага)) Кстати у вас отличный форум!!! Я зарегистрировалась ещё в двух - там хуже. 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	21.02.2012, 12:21	15
	самокритика-хорошее свойство программиста далеко пойдете 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 12:45 [ТС]	16
	Спасибки 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 11:23	2
	Значит нужно выделить Эдит и в инспекторе объектов кликнуть на вкладке Events OnKeypress 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 11:42 [ТС]	3
	Я так и делала. Для проверки создала второй Эдит без ничего. В нём всё выводится. Но почему в названии Процедуры не присутствует Едит не понятно. Боюсь, что бы отсутствие в названии едит не повлияло на другие компоненты на этой форме, т. е что бы это действие не распростронялось на них. И вообще почему в названии нет едит??? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 11:44	4
	Значит вы Выбираете событие OnKeyPres не для эдита а для формы. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 11:50	5
	Вот так делайте Миниатюры 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 11:53 [ТС]	6
	Самое обидное, по десять раз пробавала, всегда проверяю, что бы для едит, а он всё равно Едит не пишет 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 11:54	7
	Тогда я пас. 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 11:56 [ТС]	8
	Добавила вручную Edit1 в название и конечно он показал ошибку Добавлено через 2 минуты Спасибо большое за ответы! 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2012, 12:04	11
	Можно и так. Скопируйте эту процедуру и вставьте в код, а потом инициируйте. 0

@Manya89 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 13
	21.02.2012, 12:19 [ТС]	12
	Сейчас попробую Добавлено через 11 минут Большое спасибо за советы!!!! Я сделала это!!! В OnKeyPress я писала KeyPress. А надо было в OnKeyPress писать Edit1KeyPress! Воя тупая Пошла ума набираться 0

Опции темы