Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
ВнизЗначок в трее Найти похожие ветки
← →
ASt (2003-12-07 02:49) [0]Потерял ссылку на статью, в которой описывается, как вывести значок в трей и убрать кнопку из таскбара.Подскажите, пожалуйста, где об этом прочитать?
← →
хз (2003-12-07 02:55) [1]ya.ru?
← →
ASt (2003-12-07 03:08) [2]пробовал...там все ссылки на "исходники" в С++.но ведь, кто-то это и в delphi делает!
← →
Юрий Федоров (2003-12-07 03:17) [3]попробуй сам решить проблему, будет полезно
Shell_NotifyIcon
далее F1
ВСЯ информация там есть
← →
Юрий Зотов (2003-12-07 03:28) [4]http://www.delphikingdom.com/helloworld/samples_win.htm
← →
ASt (2003-12-07 04:22) [5]Спасибо за ссылку...А как кнопку убрать?
← →
intell (2003-12-07 07:36) [6]Как скрыть приложение в таскбаре?
Ответ:
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
Показать:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_show);
end;
Ещё один метод, но в нём нельзя сворачивать своё приложение.
Почему? Потому-что вы его в таскбаре уже не найдёте, как в предыдущем примере!
Откройте исходный текст приложения
Project > ...
И смотрите что нужно изменить:
program Project1;
uses Forms,
Windows, {Добавить строку}
Unit1 in "Unit1.pas" {Form1};
{$R *.RES}
var
ExtendedStyle : integer; {Добавить 2 строки - var и Extendet....}
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or
WS_EX_TOOLWINDOW); {Добавить эти строки}
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Всё!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c