Процедура,параметры

[WIDGET1]

Добрый вечер!
Есть процедура такого вида:

procedure TEdit_record.Edit4KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9',#8,#46];
begin
if not (Key in Digit) then
 Key:=#0;
end;

Но она только для частного случая, а как ее переписать, чтобы передавать в нее параметры- другие Edit.
А событие ее вызывающее, я так понимаю в Events просто на событие онкейпресс вызывать общую процедуру?

[Yurk@]

а как ее переписать, чтобы передавать в нее параметры- другие Edit.

если я правильно понял - не нужно ничего переписывать. достаточно просто назначить эту же процедуру в событиях другим Едитам и всё

[WIDGET1]

Просто громоздко получается, или все ок?

[WIDGET1]

Оу, все, отбой! Все стало понятно.
Спасибо, Юрий!

[phomm]

Любой_ваш_эдит.OnKeyPress := Edit_record.Edit4KeyPress;

Конкретному эдиту назначем обработчик события данной конкретной формы (если форма эта же самая, где всё происходит, то её имя можно опустить).
В дизайнере (объектном инспекторе) это же самое делается незаметно Вашему глазу, аналогичная команда просто записывается в файл формы (.dfm)
Но указывая это в коде, можно более гибко контролировать в определённых случаях.

[WIDGET1]

Да, понятно.

Еще по теме:

procedure TEdit_record.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
begin edit1.Text:=''; edit1.enabled:=false end
else  edit1.enabled:=true;
end;

Та же проблема, никак не могу совладать с параметрами для процедуры, если сделать ее общей, а не для частного случая.

[Аватар]

if TRadioGroup(Sender).ItemIndex=0 then

[WIDGET1]

а с эдитами как быть? Хоть тресни, не получается, аж стыдно.

[Stilet]

Хоть тресни, не получается

Что не получается? Показывай как делаешь.
И не пойму зачем в такую процедуру как в топе передавать какой-либо эдит?

[Аватар]

Если речь об эдитах из #6, то все гораздо хуже - передаваемый парамет ни как с ними не связан. Можно прицепиться к свойству tag RadioGroup и, например, по case эдиты обработать или в массиве их держать и обращаться по индексу каким-то образом опять же к tag привязанному.