Вызов MDICild-формы из Dll

← →
Alex_Ne (2007-10-18 11:06) [0]

Доброго времени суток, господа форум.

В Dll реализована MDI форма. Для вызова используются
функции что-то вроде

//инициализация
procedure OpenSched(App, Scr : integer; Connection : TADOConnection);StdCall;
begin
SaveScreen := Screen;
Screen := TScreen(Scr);
SaveApp := Application;
Application := TApplication(App);
..........................................
..........................................
end;

//Построение формы
function CallRoot: integer;StdCall;
begin
Result := Integer(TfmRoot.Create( Application );
end;

//Финализация
procedure CloseSched;StdCall;
begin
.............................................
.............................................
Application := SaveApp;
Screen := SaveScreen;
end;

Все более-менее работает, до тех пор, пока в
дочерней MDI-форме в каком-либо наследнике
TControl не возникает событие прописовки Hint-а
(при ShowHint = True).
После чего вылетает невразумительное предупреждение
отладчика типа "Can not assigned a TFont to a TFont",
а затем неубиваемое "Access violation..."
Такое ощущение что Application не знает адрес формы, куда
отправлять CM_HINTSHOW...

Что с этим делать? Без хинтов интерфейс никак не годится - требование его мать заказчика. Помогите плиз.

← →
clickmaker © (2007-10-18 11:19) [1]

> Can not assigned a TFont to a TFont",

и DLL и EXE нужно собрать с галкой build with runtime packages

← →
Alex_Ne (2007-10-18 11:29) [2]

Фантастика! Заработало.
clickmaker - рассыпаюсь в благодарностях - вчера целый день убил на эту проблему, а проделать такую естественную весчь не сообразил...
Хинты отображаются теперь как нужно. Огромное спасибо.

← →
имя (2007-10-29 12:57) [3]

Удалено модератором

В длли отдельной и в экзешнике находятся РАЗНЫЕ библиотеки классов. Из-за этого TFont из длл и TFont из экзешника - два РАЗНЫХ класса. Отсюда и сообщениею.

Вызов MDICild-формы из Dll Найти похожие ветки