Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011