Есть несколько форм(скрин формы во вложении). на каждой из них кучка Edit'ов, каждый в отдельном GroupBox'e.
1) OnChange Edit'a меняется цвет GroupBox'a в котором Edit находится
2) OnExit проверка на наличие в Edit'e текста, в случае его отсутствия - опять смена цвета GroupBox'a.
Можно ли каким либо образом прописать по одному разу эти обработчики событий и для всех остальных подобных операций делать какую-нибудь ссылку на эти обработчики? т.е. чтобы не писать эти обработчики по 30 раз для каждого из едитов...
Для OnKeyPress'a работает такая конструкция:
Объявление в Type
Код:
procedure AllEditsKeyPress(Sender: TObject; var Key: Char);
Собственно код общего для всех едитов обработчика
Код:
procedure TForm5.AllEditsKeyPress(Sender: TObject; var Key: Char);
begin
if (((key >= #192) and (key <= #255)) then begin end
else key:=#0;
end;
Присвоение обработчика конкретному едиту
Код:
Edit1.OnKeyPress:=AllEditsKeyPress;
Но в данном случае мне нужно как параметр передавать GroupBox ...