Автор: Галимарзанов Фанис. Дата публикации: 22.08.2004
TForm имеет свойство ActiveControl. Очень часто требуется для нескольких DBGrid на форме обеспечить обработку через общий TSpeedBar. Посмотрите, как описан код обработки события Click кнопки SpeedBar - циклический просмотр на совпадение ActiveControl.Name с именем Grid.
или
Пример использования 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;
Комментарии |
| отсутствуют |
Добавление комментария |