VPF::[На заметку] Компонент в DLL и XE2 (FastMM4)

dvamaster

Дата 2.11.2011, 19:16 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Случилась проблема при создании компонеты (например, TButton) точнее присвоение полю Parent.
Как ни странно но ругань идет на TFont

Используется Delphi XE2, FastMM4 (может и ни причем эта библиотека).

DLL с ошибкой:

Код


procedure Init(AParent: TWinControl);
begin
  if Button <> nil then
    Exit;
  Button := TButton.Create(AParent);
  Button.Parent := AParent; // <-- тут вызывается исключение
  Button.Caption := 'Test';
  Button.Left := 8;
  Button.Top := 8
end;

оказывается если использовать шрифт родителя, то выскочит исключение.
значит нужно использовать шрифт самого компонета.

Код


procedure Init(AParent: TWinControl);
begin
  if Button <> nil then
    Exit;
  Button := TButton.Create(AParent);
  Button.ParentFont := false; // <-- нужно добавить
  Button.Parent := AParent;
  Button.Caption := 'Test';
  Button.Left := 8;
  Button.Top := 8
end;

теперь все прекрасно smile

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

bems

Дата 9.11.2011, 10:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Это может приключиться на любом свойстве или методе, не только шрифте. Никогда не передавайте объекты в/из длл. Передавайте например интерфейсы

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

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

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