Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: Галимарзанов Фанис. Дата публикации: 22.08.2004

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



TForm имеет свойство ActiveControl. Очень часто требуется для нескольких DBGrid на форме обеспечить обработку через общий TSpeedBar. Посмотрите, как описан код обработки события Click кнопки SpeedBar - циклический просмотр на совпадение ActiveControl.Name с именем Grid.

CODE NOW!

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;




или

CODE NOW!

procedure TfmAbDelClick(Sender: TObject); // кнопка "Удалить запись"
begin
if ActiveControl.Name='grFio' then
DelRec(dm.taAb)
else
if ActiveControl.Name='grAbLgot' then
DelRec(dm.taAbLgot)
else
............
end;





Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты