Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

можно убрать программу в TRAY?   Найти похожие ветки 

← →
Leo_   (2002-04-24 03:28) [0]

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

---

← →
panov ©   (2002-04-24 07:02) [1]

См. FAQ.

---

← →
RazorbladE ©   (2002-04-24 09:00) [2]

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

---

← →
Fredericco ©   (2002-04-24 11:15) [3]

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

---

← →
Севостьянов Игорь ©   (2002-04-24 12:13) [4]

Воспользуйся компонентой 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.

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c