Действие проседуры TForm1.Button2Click(Sender: TObject); на что распространяется?

[vedro-compota]

Подскажите пожалуйста- действие процедуры TForm1.Button2Click(Sender: TObject); распространяется на все компоненты ,которые находятся на Form1 или нет?
(в том случае, если для этих компонентов событие keypress неопределено)
Заранее спасибо 0)))

[W0LF]

А точнее сформулировать вопрос можете, а то чото нечего не понял, раз 5 перечитал...

[vedro-compota]

действие процедуры TForm1.FormKeyPress(Sender: TObject; var Key: Char); распространяется на все компоненты ,которые находятся на Form1 или нет?
(при вводе информации в edit, stringgrid и т.д.)

[W0LF]

А проверить вам кто мешает? А может еще создадите топик: Если вызвать Form1.Close вся форма закроеться?

[vedro-compota]

не на все. то есть вообще ни на edit. ни на stringgrid!

[W0LF]

Следовательно - смысл темы, если вы ответ знаете?

[vedro-compota]

вот подключаю form1keypress к каждому компоненту в отдельности- всё равно не работает....(приложил архив)

[Terran]

Что-то не совсем понятна задумка...
Что касается кода, то у Вас в нём ошибки в объявлении процедуры и её вызове. В общем я подправил Ваш код. Теперь всё работает. задача1.rar

[Человек_Борща]

хм.. в вашем исходнике нет ФОРМ! (*.dfm). Егоо вообще нельзя было толком просмотреть! только pas-файлы.

Вот как это делается:
На форме выставляете событие OnKeyPress
в нем пишите:

begin
If not (key in [#8,'0'..'9']) then key:=#0;
MessageBox(0,'Сюда можно вводить только цифры.','Ошибка',MB_OK or MB_ICONERROR);
end;

Примечание:
Событие формы KeyPress не означает что оно будет применено ко всем компонентым формы. К самой форме оно как правило применено не будет.

далее если вам нужно заблокировать ввод в эдит.. то в событиях.. находите OnKeyPress и из выпадающего списка выбираете ранее сделанное KeyPress для TForm... ВСЕ.

Вот исходник того что получается.

[Terran]

Чтобы работало везде, даже без объявления процедур Edit1KeyPress можете сделать так:

Form1.KeyPreview:=True;