Скачать: CL | DM;

Значок в трее   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c