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; | | 
