![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#15
|
|||
|
|||
![]() Вообще, если тебе не надо соответсвие между 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)
|