VPF::Вызов процедуры по ссылке - Форум программистов

Keeper89

Дата 12.5.2011, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Доброго времени суток.

Имеется датамодуль (с датасетом) и форма, ссылающаяся на этот модуль.
Как можно отследить на форме (сделать что-то типа колбека) событие в датасете?

Чтобы была возможность сделать так:

Код


procedure Form1.XXX;
begin
  // датасет изменен, текущая запись...
end;

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Snowy

Дата 12.5.2011, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Обычный эвент.
Создаёшь эвент своего типа (с нужными параметрами), делаешь датасету пропертю типа нужный_эвент.
Назначаешь из формы датасету свою функцию, как эвент.
Вобщем обычный кастомный эвент.

Keeper89

Дата 12.5.2011, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Snowy, можно примерчик?

Это сообщение отредактировал(а) Keeper89 - 12.5.2011, 12:22

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 12.5.2011, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Сделал так:

Модуль:

Код


TProjectDSTProc = procedure of object;

...

public
    ProjectDSTProc: TProjectDSTProc;

...

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  DM.ProjectDSTProc := ProjectDataChanged;
end;

...

procedure TDM.dsProjectsDataChange(Sender: TObject; Field: TField);
begin
  if Assigned(ProjectDSTProc) then
    ProjectDSTProc;    
end;

Форма:

Код


procedure ProjectDataChanged;

...

procedure TfrmMain.ProjectDataChanged;
begin
  Caption := Format('%.2m', [A])
end;

Все верно?

Это сообщение отредактировал(а) Keeper89 - 12.5.2011, 12:45

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Snowy

Дата 12.5.2011, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если тебе не нужно передавать параметры в событие, то да.

Keeper89

Дата 12.5.2011, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(Snowy @ 12.5.2011, 12:51

)

Если тебе не нужно передавать параметры в событие, то да.

Пока не нужно, спасибо!

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »