Форум: "WinAPI";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Внизможно убрать программу в 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c