VPF::Прошу совета. [D3, Win95/98] - Форум программистов

Riko

Дата 15.5.2002, 16:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я вывожу значок своей проги в Image1, который отображается в окне "О программе...", по событию OnActivate:

Код

procedure TForm1.FormActivate(Sender: TObject);
var
IconIndex : word;
begin
IconIndex := 0;
Image1.Picture.Icon.Handle := ExtractAssociatedIcon(HInstance, Pchar(Application.EXEName),IconIndex);
end;

Правильно?
Не будет ли это замедлять работу программы?

Vit

Дата 15.5.2002, 16:43 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

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

Практически нет. Только советую поставить первой строкой

onActivate:=nil;

чтобы обеспечить только однократное выполнение кода, и предупредить его повторное выполнение например в случае активации окна.

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Baa

Дата 15.5.2002, 16:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

А зачем такие заморочки? не проще ли сделать статическую картинку...

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Riko

Дата 15.5.2002, 17:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код

А зачем такие заморочки? не проще ли сделать статическую картинку...

Допустим, пользователь с помощью редактора ресурсов захочет изменить значок программы. В моем случае, он поменяеться и в окне "О программе...". И все будет красиво. А вообще это не больше, чем мой каприз.

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