Как добавить иконку в заголовок окна?

← →
Гость2 (2005-05-30 11:36) [0]

← →
SergP. (2005-05-30 11:39) [1]

У формы есть свойство icon.

← →
Гость2 (2005-05-30 12:28) [2]

а так, чтоб иконка, которая зашита в *.res

← →
TUser © (2005-05-30 12:41) [3]

Загрузить ее из ресурсов (LoadFromStream)

← →
TUser © (2005-05-30 12:50) [4]

Автору:
Написал бы "Как запуздырить иконку в заголовок окна" - сразу бы мастера прибежали :)

← →
Чапаев © (2005-05-30 13:57) [5]

А я, прочитав "добавить", понял так, что нужно, чтоб окно имело две иконки...

← →
Гость2 (2005-05-30 14:12) [6]

Уточню, BorderSyle:= bsNone,
а хотелось бы, чтобы на панели задач отображалась определенная иконка

← →
Чапаев © (2005-05-30 14:16) [7]

>а хотелось бы, чтобы на панели задач отображалась определенная иконка
Тю. Ну так с этого следовало начинать.

procedure TForm1.CreateParams(var Params:TCreateParams); begin inherited; Params.StyleEx:=Params.StyleEx or WS_EX_APPWINDOW; end;

Form1.Icon.Handle:=LoadIcon(...);

← →
Игорь Шевченко © (2005-05-30 14:25) [8]

> а хотелось бы, чтобы на панели задач отображалась определенная
> иконка

Project Options|Application|Icon|Load Icon

← →
Navigator (2005-05-30 14:30) [9]

> Загрузить ее из ресурсов (LoadFromStream)

А как это делается?

← →
Гость2 (2005-05-30 14:32) [10]

Игорь Шевченко © (30.05.05 14:25) [8]
> а хотелось бы, чтобы на панели задач отображалась определенная
> иконка

Project Options|Application|Icon|Load Icon

Это первое, что приходит в голову, однако с BorderSyle:= bsNone, это не срабатывает:(

← →
Anatoly Podgoretsky © (2005-05-30 14:37) [11]

Чапаев © (30.05.05 13:57) [5]
Основная и запасная.

Гость2 (30.05.05 14:12) [6]
панель задач это заголовок окна

← →
DVM © (2005-05-30 14:39) [12]

> однако с BorderSyle:= bsNone, это не срабатывает:(

Когда таскбар рисует кнопу - она обязательно присылает окну WM_GETICON - на него надо реагировать.

← →
Гость2 (2005-05-30 14:43) [13]

Признаюсь, собственно, ничего не понял:(
Подскажите мои необходимые действия.
>Чапаев © (30.05.05 14:16) [7]
StyleEx - unknown :(

← →
Navigator (2005-05-30 14:44) [14]

> Anatoly Podgoretsky © (30.05.05 14:37) [11]

> панель задач это заголовок окна

Позвольте с Вами не согласиться. Заголовок окна - это синенькая (стандартн.) полоска в самом верху текущего окна, справа на которой помещены кнопки "Свернуть", "Восстановит", "Закрыть".

← →
Navigator (2005-05-30 15:01) [15]

> Загрузить ее из ресурсов (LoadFromStream)

Ну то как это сделать?

← →
DVM © (2005-05-30 15:05) [16]

> Ну то как это сделать?

HICON LoadIcon
(
HINSTANCE hInstance, // указатель на приложение
LPCTSTR lpIconName // идентификатор
);

Если функция завершится неудачно, то вернется значение NULL. Эта функция вернет указатель на икону в том случае, если ее параметры совпадают с параметрами установленными в SM_CXICON и SM_CYICON, которые можно получить функцией GetSystemMetric. Если Вы хотите икону другого типа, то используйте LoadImage().

← →
Anatoly Podgoretsky © (2005-05-30 15:11) [17]

Navigator (30.05.05 14:44) [14]
Ну так добавь знак вопроса в предложение.

← →
Игорь Шевченко © (2005-05-30 15:46) [18]

Гость2 (30.05.05 14:32) [10]

> Это первое, что приходит в голову, однако с BorderSyle:=
> bsNone, это не срабатывает:(

Срабатывает. На панели задач показывается иконка окна Application.Handle, а не формы с bsNone

← →
Navigator (2005-05-30 18:51) [19]

то я так и не понял, как добавить иконку в ЗАГОЛОВОК ОКНА.
Потрепались, а на сабж никто не дал ответа

> StyleEx - unknown :(
Ну значит ExStyle... Как будто я всё могу запомнить и как будто вы ничего не можете своими руками сделать.

Navigator (30.05.05 18:51) [19]
Если ты внимательно читал, то должен быть понятб, что у него нет заголовка окна!
Если у тебя есть такое окно с заголовком, то задай свой вопрос с точной формулировкой, а то как оказалось нужен заголовок для кнопки в панели задач.

← →
Navigator (2005-05-30 19:59) [22]

>Anatoly Podgoretsky © (30.05.05 19:54) [21]
а то как оказалось нужен заголовок для кнопки в панели задач
Дык не заголовок нужен, а иконка

← →
Navigator (2005-05-30 20:00) [23]

У меня, например такой же вопрос - на кнопке в панели задач есть иконка, а на самом окне (в заголовке) - нет. Как сделать, чтоб иконка появилась и в заголовке окна тоже?

Navigator (30.05.05 20:00) [23]
Ну дак Form1.Icon.Handle:=LoadIcon(HInstance,"MAINICON");
Но ведь у всех форм по умолчанию ставится иконка приложения.

procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Icon: HICON;
begin
DC:= GetWindowDC(form1.Handle);
DrawIcon(DC, 5,5, image1.Picture.Icon.Handle);
ReleaseDC(form1.Handle, DC);
end;

> а на самом окне (в заголовке) - нет. Как сделать, чтоб иконка
> появилась и в заголовке окна тоже?

А что при создании окна на WinApi иконку трудно было в параметрах класса окна указать?

wc.hIcon := LoadIcon(0, IDI_APPLICATION);

Как добавить иконку в заголовок окна? Найти похожие ветки