Пример использования 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;

Далее: Присвоить значение защищённому свойству класса »»