Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
ВнизКак запихать в exe мою иконку и загрузить ее в TIcon во время работы Найти похожие ветки
← →
Song (2002-03-03 10:12) [7]Мне вот так больше понравилось. Передаёшь в процедуру чего тебе нужно сделать(1 - добавить, 2 - удалить, 3 - изменить), и иконку.
Например, поменять ту что у тебя есь на другю вот так: Ic(3,Form5.Icon);
Если иконок много сделай TImageList и доставай их оттуда передавай параметром в процедеру.
Procedure TForm1.Ic(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do
Begin
cbSize:=SizeOf(Nim);
Wnd:=Form1.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=wm_user+1;
szTip:="Tip";
End;
Case n OF
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
End;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c