Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Вниз

System Tray   Найти похожие ветки 

← →
Serzh ©   (2006-06-08 17:28) [0]

Подскажите пожалуйста, как свернуть программув трей?
Читал FAQ - не работает...

---

← →
DesWind ©   (2006-06-08 17:43) [1]

Прочитай еще раз. Может поможет.

---

← →
Kolan ©   (2006-06-08 17:49) [2]

Новый ответ на этот вопрос - установи Delphi 2006 там есть компонент TTrayIcon

---

← →
tesseract ©   (2006-06-08 17:51) [3]

поискать по форумам "запуздырить иконку в трей"

---

← →
Virgo_Style ©   (2006-06-08 18:07) [4]

www.torry.net - там TCoolTrayIcon %-)

---

← →
Handle   (2006-06-09 11:09) [5]

Нажимаешь на красный крестик

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ShellAPI, Menus;
const
WM_NOTIFYTRAYICON = WM_USER + 1;
type
 TForm1 = class(TForm)
   PopupMenu1: TPopupMenu;
   Close1: TMenuItem;
   Open1: TMenuItem;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   procedure Close1Click(Sender: TObject);
   procedure Open1Click(Sender: TObject);
 private
   procedure WMTRAYICONNOTIFY(var Msg: TMessage); message WM_NOTIFYTRAYICON;
 public
   { Public declarations }
 end;

var
 Form1:      TForm1;
 MayClose:   boolean=false;
implementation

{$R *.dfm}
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
begin
case Msg.LParam of
 WM_RBUTTONUP:
   begin
     SetForegroundWindow(Application.MainForm.Handle);
     PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
   end;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 Tray: TNotifyIconData;
begin
Application.ShowMainForm:= false;
 with Tray do
 begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_NOTIFYTRAYICON;
   hIcon :=  Application.Icon.Handle;
   szTip := ("SILNO KRUTAY PROGA");
 end;
   Shell_NotifyIcon(NIM_ADD, Addr(Tray));
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
 Tray: TNotifyIconData;
begin
 with Tray do
   begin
     cbSize := SizeOf(TNotifyIconData);
     Wnd := Handle;
     uID := 1;
   end;
     Shell_NotifyIcon(NIM_DELETE, Addr(Tray));
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MayClose = false then
begin
CanClose:= false;
MayClose:= true;
Form1.Hide;
end
else
begin
CanClose:= true;
end;
end;
//PopupMenu
procedure TForm1.Close1Click(Sender: TObject);
begin
MayClose:= true;
Form1.Close;
end;
//PopupMenu
procedure TForm1.Open1Click(Sender: TObject);
begin
MayClose:= false;
Form1.Show;
Application.BringToFront;
end;

end.


---

← →
tButton ©   (2006-06-09 11:12) [6]

> TCoolTrayIcon %-)

если бы вы только видели что эта хренотень творила в моих 98х виндах...
сколько она мне крови выпила =(

дома лежит сорц нагугленый недавно
мб вечером кинусь

---

← →
Serzh ©   (2006-06-09 14:47) [7]

Спасибо. - Заработало - там модуль надо было подключить... (на TNotifyIconData ругался)

---

← →
Palladin ©   (2006-06-09 17:27) [8]

так это не пример из FAQ не работает, это ты не работаешь...

---

← →
Serzh ©   (2006-06-09 18:15) [9]

Дык ф факе ниче не написано, о том, что надо еще один модуль подключать, а хел по этому поводу ничего не выдаёт.

---

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

Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Наверх

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