| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

можно убрать программу в TRAY?

Leo_ ©   (2002-04-24 03:28:00) 

Уважаемые Мастера, научите пожалуйста прятать приложение в трей и наоборот, "вылезать" оттуда при необходимости (надо, чтобы программа с момента запуска не была видна, а появлялась после какого-то события). Я пробовал Form.Hide, но вернуть окошко мне не удалось - и show, и visible приводят к какой-то ошибке. Подскажите, плз.

---

Севостьянов Игорь   (2002-04-24 12:13:00) [1]

Воспользуйся компонентой TRxTrayIcon из библиотеки RX Lib 2.75 или выше и впиши в главный unit следущий код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
RXShell;

type
TForm1 = class(TForm)
RxTrayIcon1: TRxTrayIcon;
procedure FormCreate(Sender: TObject);
procedure RxTrayIcon1DblClick(Sender: TObject);
private
ShowForm: Boolean;
protected
procedure CMVisibleChanged(var Msg: TMessage); message CM_VISIBLECHANGED;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMVisibleChanged(var Msg: TMessage);
begin
Visible := ShowForm;
inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowForm := False;
end;


procedure TForm1.RxTrayIcon1DblClick(Sender: TObject);
begin
ShowForm := not ShowForm;
Visible := ShowForm;
if ShowForm then Application.BringToFront;
end;

end.

---

Fredericco   (2002-04-24 11:15:00) [2]

На этом сайте заходишь в поиск набираешь Tray, банально правда?
Там будет компонент KreyMedia. Я с ним работаю - проблем не знаю.

---

RazorbladE   (2002-04-24 09:00:00) [3]

Пиши - вышлю пример.

---

panov   (2002-04-24 07:02:00) [4]

См. FAQ.

---

Наверх