Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Иконка из DLL в форму 
V
    Опции темы
Rodman
Дата 29.5.2008, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Дароф

Как добавить иконку в заголовок динамически созданной формы? С учетом того, что форма создается в DLL, и иконку хранить нужно тоже в DLL. И как в DLL запихнуть иконку?

Сенкс


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Alexeis
Дата 29.5.2008, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Rodman, у формы есть замечательно свойство Icon, думаю оно вполне подойдет  smile

Добавлено через 31 секунду
Цитата(Rodman @  29.5.2008,  12:57 Найти цитируемый пост)
хранить нужно тоже в DLL. И как в DLL запихнуть иконку?

Dll может иметь свои ресурсы!


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Rodman
Дата 29.5.2008, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Код

var
fSelCom     : TForm;

..................

Application.CreateForm(TForm, fSelCom);
  with fSelCom do
    begin
      visible:=false;
      width:=300;
      height:=300;
      caption:='четотам';
      borderStyle:=bsSingle;
      position:=poDesktopCenter;
      BorderIcons:=BorderIcons - [biMaximize] - [biMinimize];
..........
    end;

а вот что сделать дальше, чтобы не путь к иконке хранился, а сама иконка в dll'ке?


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
THandle
Дата 29.5.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Rodman, пример в аттаче.

Добавлено через 1 минуту и 38 секунд
Если надо, то опишу процесс действий smile 

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  prdll.rar 323,99 Kb
PM   Вверх
Alexeis
Дата 29.5.2008, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Код

{$R Icon.res}


Создать ресурс с иконкой в каком нить ресхакере или руками при помощи Brcc32.exe

Создание ресурсов это избитый вопрос, так что погугли по форуму.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
THandle
Дата 29.5.2008, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Rodman, опишу как это делалось:

Создаешь обычное вин32 приложение, на форму бросаешь кнопку, в обработчике OnClick:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadLibrary('Project2.dll');
end;


Компилируешь и закрываешь этот проект.

Создаешь новый проект - DLL.
Создаешь форму. Назsвыешь как хочешь(у меня Form2).
Бросаешь на форму кнопку(это просто пример).
В обработчике пишешь:

Код

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Icon.Handle := LoadIcon(HInstance, 'Icon1');
end;


То есть загружаешь иконку.

Дальше в коде самой библиотеки пишешь:

Код

begin
  Form2 := TForm2.Create(nil);
  Form2.ShowModal;
  Form2.Free;
end.





Дальше создаешь саму иконку в любом редакторе и сохраняешь в папку с проектом например под названием Icon1.ico.

Дальше создаешь текстовый файл, в нем пишешь:
Цитата


ICON1 ICON Icon1.ico


Сохраняешь как Res.rc

Дальше вызываешь командную строку.
В ней пишешь:

Цитата

Brcc32 project_path\Res.rc


Где project_path путь к проекту.


В проекте библиотеки пишешь:

Код

{$R res.res}


Компилируешь библиотеку. Запускаешь приложение. Жмешь кнопки. Смотришь на иконку формы в длл. Должна измениться.
PM   Вверх
Rodman
Дата 29.5.2008, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Сенкс


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0954 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.