VPF::Загрузка Frame из Dll. Ошибка! - Форум программистов

FShadow

Дата 1.10.2010, 12:44 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 8.12.2006
Где: Беларусь, г. Минс к

Репутация: нет
Всего: -1

Господа программисты помогите разобраться.
Здесь на форуме искал но полного решения вызова фреймов не нашел.
Есть код создания фрема в Dll

Код


function ShowFrame(aParent: TWinControl): TFrame;stdcall;
begin
  Result:= TfrContact.Create(aParent);
  Result.Parent := aParent;
end;

Код процедуры создания фрейма в основной программе

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  NewTabSheet: TTabSheet;
  frMy: TFrame;
begin
       // Создаем страницу в TPageControl
       NewTabSheet:= TTabSheet.Create(PageControl1);
       NewTabSheet.Visible:= True;
       NewTabSheet.PageControl:= PageControl1;
       NewTabSheet.Caption:= GetNameModule;

       frMy:= ShowFrame(NewTabSheet);
       frMy.Visible:= True;
     end;
end;

При вызове его из основной программы вылетает ошибка "Cannot assign a TFont to a TFont".
Как ее победить и что надо сделать чтоб фрейм из dll отображался нормально?

bems

Дата 1.10.2010, 14:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Использовать bpl

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

Обижено школьников: 8

Frees

Дата 1.10.2010, 14:43 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 16
Всего: 54

http://www.delphikingdom.ru/asp/listerrors...on=1&ID=123

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

Кольцов Виктор Владимирович

FShadow

Дата 7.11.2010, 12:43 (ссылка)

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

Загрузка ...

Если кому еще интересно нашел в сети следующее решение. Использовать bpl не требуется.

Код



procedure ShowFrame(App: Integer; aParent: TWinControl);stdcall;
var
  DllApp: TApplication;
begin
  DllApp:= Application;
  Application:= TApplication(App);
  Frame1 := TFrame1.Create(Application);
  Frame1.ParentWindow := aParent.Handle;
  SetParent(Frame1.Handle, aParent.Handle);
  Application:= DllApp; 
end;

вот и все. Тему можно считать закрытой.

bems

Дата 7.11.2010, 14:58 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

У приложения и длл разные классы. Подобные решения работают до тех пор пока тебе везет

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

Обижено школьников: 8

Caduser

Дата 9.12.2011, 14:36 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 2.10.2006
Где: г. Хабаровск

Репутация: нет
Всего: 1

Цитата(FShadow @ 7.11.2010, 12:43)

Если кому еще интересно нашел в сети следующее решение. Использовать bpl не требуется.

Код



procedure ShowFrame(App: Integer; aParent: TWinControl);stdcall;
var
  DllApp: TApplication;
begin
  DllApp:= Application;
  Application:= TApplication(App);
  Frame1 := TFrame1.Create(Application);
  Frame1.ParentWindow := aParent.Handle;
  SetParent(Frame1.Handle, aParent.Handle);
  Application:= DllApp; 
end;

вот и все. Тему можно считать закрытой.

Такой вариант работает но фрейм не подгоняется под размер формы

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