Советы по Delphi

         

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

[000794]



Содержание раздела