Текущий архив: 2007.01.21;
Скачать: CL | DM;
Вниз
Иконка Программы Найти похожие ветки
← →
Neket (2007-01-04 15:27) [0]Подскажите как использовать для Трея иконку программы т.е. я подгружаю тконку для Трея таким образом:
procedure TForm1.FormCreate(Sender: TObject);
var
tray: TNotifyIconData;
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.LoadFromFile("Icon1.ico"); // и вот здесь необходимо сделать так чтобы загрузилась иконка самой программы а не из другого файла.
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := Ic.Handle;
szTip := ("Баян!!!!");
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
Ic.Destroy;
end;
Просто неохото таскать отдельно за exe-шником еще и файл иконки.
← →
Calibr © (2007-01-04 15:30) [1]Очень просто!
procedure TForm1.FormCreate(Sender: TObject);
var
tray: TNotifyIconData;
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.LoadFromFile("Icon1.ico"); // и вот здесь необходимо сделать так чтобы загрузилась иконка самой программы а не из другого файла.
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := Application.Icon.Handle;
szTip := ("Баян!!!!");
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
Ic.Destroy;
end;
← →
SergGG © (2007-01-04 15:33) [2]ic=Application.Icon
← →
Neket (2007-01-04 15:36) [3]Спасибо за помощь
Страницы: 1 вся ветка
Текущий архив: 2007.01.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.053 c