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

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Пример использования ActiveControl", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!