Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #15  
Старый 27.08.2012, 02:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,107
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Вообще, если тебе не надо соответсвие между TObject в основной программе и в доп. модулях, то можно и DLL использовать. С ими работать зачастую проще, чем с BPL.

Теперь по основной теме. Тут недавно в блогах проскакивала серия статей про создание плагинов на основе интерфейсов. Вот ссылка на последнюю из серии, остальные сам найдешь: http://www.gunsmoker.ru/2012/06/7.html

Если с интерфейсами возиться не хочется и нет задачи создания полноценной системы плагинов, то можно сделать примерно так:
1. Делаем у формы обработчик события, который будет вызван в момент закрытия формы.
2. При закрытии MDIChild формы, если обработчик назначен, то вызываем его, передавая внутрь нужные данные.
3. При создании дочерней формы назначаем ей обработчик из главной формы.
4. Инициализацию (начальное присвоение значений) можно сделать через конструктор.

Шаблон кода:
DLL:
Код:
type
  TParamSet = record
    ...  // Набор переменных для передачи
  end;

  TChildCloseEvent = procedure (var PramSet : TParamSet) of object;

  TChildForm = class(TForm)
  ...
  private
    FOnChildClose : TChildCloseEvent;
  public
    constructor TChildForm.Create(AOwner : TComponent; ParamSet : TParamSet); override;
    OnChildClose : TChildCloseEvent read FOnChildClose write FOnChildClose;
  end;
...
constructor TChildForm.Create(AOwner : TComponent; ParamSet : TParamSet);
begin
  inherited Create(AOwner);
  FOnChildClose := Nil;
end;

procedure TChildForm.Close(Action : TCloseAction); // Не помню точно сигнатуру
begin
  ParamSet.Int := 10; // для примера
  If Assigned(FOnChildClose) Then FOnChildClose(ParamSet);
  
  Action := caFree;
end;

Главный модуль:
Код:
procedure TMainForm.GetMDIParams(var ParamSet : TParamSet);
begin
  // Сохраням полученные значения
end;

procedure TMainForm.CreateChildForm;
var
  Form : TChildForm;
  ParamSet : TParamSet;
begin
  // Здесь грузим DLL или еще что
  ...

  Form := TChildForm.Create(Application,ParamSet);
  Form.OnChildClose := GetMDIParms;
end;

Как-то так. Код набросан только для пояснения идеи.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
sorockinalex (27.08.2012)
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:19.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025