Скачать: CL | DM;

Интерфейсы...   Найти похожие ветки 

← →
GanibalLector ©   (2006-06-08 23:21) [0]

Есть главное приложение,в нем находиться TPopupMenu. Есть библиотеки(с формами),некоторые компоненты на этих формах должны иметь TPopupMenu одинакового "формата".
Соответсвенно,дабы не плодить TPopupMenu на каждую форму решил брать ее из главного приложения.
Делал через интерфейсы. В общем-то сделал... все вышло,но от Лукавого,т.к. ничего другого в голову не лезло(пришлось вызывать LoadLibrary из библиотеки на главное приложение).

Собственно,код :

Главное приложение :


IPopup = interface
["{F3B3F5EB-0E26-417C-8509-5734C71458BE}"]
 function GetPopup:Pointer;
end;

type
TPop = class(TInterfacedObject,IPopup)
   function GetPopup:Pointer;
 end;
 ...
 var
  Form1: TForm1;
  PPop:TPop;
 ...

function TPop.GetPopup: Pointer;
begin
 Result:=Form1.PopupMenu1;
end;

function GetPopup: IPopup;stdcall;
begin
 PPop:=TPop.Create;
 Result:=PPop as IPopup;
end;

exports
 GetPopup;




Библиотеки с формами (этот код и не нравиЦа) :

 ...
 var hMain:HWND;
 GetPopup :function : IPopup;stdcall;
 FPopup:IPopup;
begin

 hMain:=LoadLibrary(PChar(Application.ExeName));
 if hMain<>0 then
 begin
   GetPopup:=GetProcAddress(hMain,"GetPopup");
   if Assigned(GetPopup) then
   begin
     FPopup:=GetPopup;
     if Assigned(FPopup) then
      StringGridEx1.PopupMenu:=FPopup.GetPopup;
   end;
   FreeLibrary(hMain);
 end;



Вот и вопрос назрел...насколько это правильно (или как сделать правильно)???

Заранее спасибо!

---

← →
evvcom ©   (2006-06-09 08:26) [1]

Какая разница, что ты сделал через интерфейсы или делал бы без них. В результате ты все равно приходишь к присвоению свойству типа dll.TPopupMenu объекта exe.TPopupMenu, пусть даже эти адреса ты вычислил с извращениями через интерфейсы. Если ты не используешь runtime packages, то код твой некорректен.

---

← →
GanibalLector ©   (2006-06-09 09:47) [2]

Еще предложения будут?

2 evvcom ©   (09.06.06 08:26) [1]
runtime packages не собираюсь использовать в силу некоторых причин.

---

← →
vl_chel ©   (2006-06-09 11:57) [3]

Код очень сомнительный и не совсем логичный. Смысл из библиотеки вызывать библиотеку ?????
Вы попутали библиотеку и главное приложение.
В библиотеке должна быть функция ShowWindow(PopUp: IPopup)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c