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

Delphi , Компоненты и Классы , Свойства и События

Автор: Галимарзанов Фанис

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; 

Статья Пример использования ActiveControl раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Свойства и События ::