VPF::Создание компонента любого класса в чужом окне

Grol

Дата 15.3.2008, 13:05 (ссылка)

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

Загрузка ...

Бывалый

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

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

Хорошо я сейчас поясню зачем мне все это нужно на конкретном примере: В своем приложении создаю стандартное окно "О программе" (далее буду называть его FormAbout):

Код


ShellAbout(Form1.Handle,
          'Название программы',
          'Авторские права'+#13#10+'Авторские права',
           Application.Icon.Handle);

С помощью функции FindWindow узнаю дескриптор FormAbout:

Код


var
  hForm: HWND;
...
hForm:=FindWindow(nil, 'О программе "Название программы"');

У меня есть компоненты, которые преображают любую форму, BusinessSkinForm. Этот компонент можно создать на любой форме, указав владельца AOwner этого компонента:

Код


var
  BS:   TbsBusinessSkinForm;
...
BS:=TbsBusinessSkinForm.Create(AOwner);

И тут, у меня возникает сложность, как дескриптор FormAbout hForm превратить в AOwner класса TComponent. Возможно ли с помощью каких-нибудь методов обратиться к форме FormAbout, как к визуальному компоненту, зная только его дескриптор? ( hForm ---> AOwner )

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

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

Rrader

Дата 15.3.2008, 13:13 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Grol, то, что ты задумал, невозможно smile

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

Let's do this quickly!
Rest in peace, Vit!

Grol

Дата 15.3.2008, 13:26 (ссылка)

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

Загрузка ...

Бывалый

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

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

Жаль...я считал, что в программировании нет ничего невозможного!

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

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

bems

Дата 17.3.2008, 17:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Grol @ 15.3.2008, 13:05

)

И тут, у меня возникает сложность, как дескриптор FormAbout hForm превратить в AOwner класса TComponent.

Его не существует, т.к. ShellAbout не пользуется VCL и ничего не знает о существовании класса TComponent.

Сделай свою About

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

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

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