[Uniq!]

Как установить принадлежность какого-нибудь Edit'a к определённой Panel?

Вообще у меня задача чуть сложнее: я использую компонент dxLayout от Dev'Express и там (например) под стандартный элемент Edit сначала создаётся ItemContainer, а потом уже этот ItemContainer привязывается к Group, которая объединяет Item'ы.

Иерархия получается такая:
Элемент в Item
Item в Group

Так вот мне необходимо назначить одно событие OnCahnge всем Edit'ам в определённой группе.

[icWasya]

как то так

Код:

procedure SetCahngeEvent(Sender:TControl; ChangeEvent:TNotifyEvent);
var
  I:Integer;
  C:TControl;
begin
  for I:=0 to Sender.ControlCount-1 do begin
    C:=Sender.Controls[i];
    if C is TEdit then TEdit(C).OnChange:=ChangeEvent else
    if C is TPanel then SetCahngeEvent(C,ChangeEvent) else
    if C is TGroupBox then SetCahngeEvent(C,ChangeEvent) else
    (* ещё пяток проверок, если эти не подошли*)
  end;
end;

[Alegun]

Наверное проще определять по свойству Tag или имени родителя элемента, создав и задав единственную процедуру чейнжа для всех

Код:

procedure Form1.EditChange(Sender: TObject);
begin
 with (Sender as TEdit) do
  case Parent.Tag of
   10: Text:= Parent.Name;
   20: Text:= Parent.Name;
   // etc.
  end;{case}
end;

или

Код:

...
 with (Sender as TEdit).Parent do
  begin
   if Name = 'Panel1' then 
   if Name = 'Panel2' then
   ...
  end;
...

[Freeman]

Сообщение от Uniq!

Как установить принадлежность какого-нибудь Edit'a к определённой Panel?

Ее Parent будет равен нужной панели:

Код:

  if Edit1.Parent = Panel1 then
    ...