[Sheitan48]

Есть несколько форм(скрин формы во вложении). на каждой из них кучка 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 ...

[lmikle]

Нет, не нужно. GroupBox - это контейнер, т.е. Parent для Edit'а.
В параметре Sender тебе передается указатель на компонент, вызвааший событие. Таким образом можно написать так:

Код:

procedure TForm1.EditChange(Sender : TObject);
begin
  If (Sender Is TEdit) Then
    If (Sender As TEdit).Parent Is TGrpupBox Then
      ((Sender As TEdit).Parent As TGrpupBox).Color := clBLue;
end;

[Alegun]

А присвоение одного обработчика AllEditsKeyPress всем Edit на форме совсем просто, главное чтоб их имена шли по-порядку

Код:

uses 
Unit5;

procedure TForm1.FormShow{Create}(Sender: TObject);
var
 i: integer;
begin
 for i: = 1 to ComponentCount - 1 do
  (FindComponent('Edit' + IntToStr(i)) as TEdit).OnKeyPress:= Form5.AllEditsKeyPress;
end;

и так у всех форм.

[Sheitan48]

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

Нет, не нужно. GroupBox - это контейнер, т.е. Parent для Edit'а.
В параметре Sender тебе передается указатель на компонент, вызвааший событие.

Класс. Все заработало как должно, буду знать на будущее что можно обращаться к родительскому компоненту...

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

И еще вопрос, у меня вот изначально не все едиты на форме активны, при заполнении некоторых из них опять же onChange планировалось активировать следующую группу едитов. Так вот, есть ли какой-нибудь аналог onChange чтоб там можно было выполнить данные действия помимо общего обработчика заданного по вашему примеру или проще написать отдельный обработчик для этих едитов?

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

А присвоение одного обработчика AllEditsKeyPress всем Edit на форме совсем просто, главное чтоб их имена шли по-порядку

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

[Alegun]

Определитесь

...код общего для всех едитов обработчика...

или

...не все едиты будут обрабатываться таким образом...

...

вот это смущает

Код:

if (((key >= #192) and (key <= #255)) then begin end...

когда можно более конкретно и понятно

Код:

case Key of
'А'..'Я','а'..'я','Ё','ё': begin end;
chr(VK_BACK): exit;
...
else Key:= #0;
end;

насчёт

... у меня вот изначально не все едиты на форме активны, при заполнении некоторых из них опять же onChange планировалось активировать следующую группу едитов...

можно так

Код:

with (FindComponent('GroupBox' + IntToStr((Sender as TEdit).Tag)) as TGroupBox) do
for i := 0 to ControlCount - 1 do (Controls[i] as TEdit).Enabled:= true;

где в свойстве .tag sender`а заранее записан порядковый номер groupbox`а с группой следующих едитов.

[Sheitan48]

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

Определитесь
код общего для всех едитов обработчика... или
не все едиты будут обрабатываться таким образом...

Ну блин, не писАть же, что для почти всех едитов

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

вот это смущает

Код:

if (((key >= #192) and (key <= #255)) then begin end...

когда можно более конкретно и понятно

Код:

case Key of
'А'..'Я','а'..'я','Ё','ё': begin end;
chr(VK_BACK): exit;
...
else Key:= #0;
end;

Эм. поясню. Изначально планировалось использовалось так, как пишут в многочисленных примерах на просторах интернетов:

Код:

    if Not (Key in ['А'..'Я', 'а'..'я', '0'..'9', #8])then Key:=#0;

В Delphi 7 этот код прекрасно работал. Но RAD Studio 2010 отказался обрабатывать таким макаром русский алфавит вообще... инглиш, цифры - на ура, русский хоть пиши хоть не пиши... Оказалось все дело в расширенной поддержке Unicode начиная с Delphi 2009. Тут "чуть" более подробно, но т.к. сроки начинают уже поджимать а слов там очень много и разбираться во всем этом (чего-то там скан-коды, виртуальные коды, символьные коды...голова кругом идет ) не было никакого желания, было принято решение не заморачиваться и использовать ascii-коды. Может Вы в курсе, как можно исправить ситуацию без переустановки делфи на более старую версию?)

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

можно так

Код:

with (FindComponent('GroupBox' + IntToStr((Sender as TEdit).Tag)) as TGroupBox) do
for i := 0 to ControlCount - 1 do (Controls[i] as TEdit).Enabled:= true;

где в свойстве .tag sender`а заранее записан порядковый номер groupbox`а с группой следующих едитов.

А вот за это спасибо, буду пробовать...

[icWasya]

Ну написать вместо IN по старинке

Код:

if Not (
  ( Key >= widechar('А') and (Key <= widechar('Я')) or
  ( Key >= widechar('а') and (Key <= widechar('я')) or
  ( Key >= widechar('0') and (Key <= widechar('9')) or
  ( Key = widechar(#8))
  ) then Key:=#0;

[Alegun]

Букву Ё (#168), ё (#184) забыли в коде упомянуть, а без не(ё) как-то зябко