Delphi World - Пример использования ActiveControl

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Пример использования ActiveControl

TForm имеет свойство ActiveControl. Очень часто требуется для нескольких DBGrid на форме обеспечить обработку через общий TSpeedBar. Посмотрите, как описан код обработки события Click кнопки SpeedBar - циклический просмотр на совпадение ActiveControl.Name с именем Grid.

procedure TfmAb.insClick(Sender: TObject); // кнопка "Новая запись"
begin
  if ActiveControl.Name='grFio' then 
    EditAbProps(true) 
  else
  if ActiveControl.Name='grAbLgot' then 
    EditAbLgot(grAbLgot.DataSource,true)
  else
    ............
end;

или

procedure TfmAbDelClick(Sender: TObject); // кнопка "Удалить запись"
begin
  if ActiveControl.Name='grFio' then 
    DelRec(dm.taAb) 
  else
  if ActiveControl.Name='grAbLgot' then 
    DelRec(dm.taAbLgot) 
  else
    ............
end;