Minimalizacja okna i TrayIcon

[duf]

Szukam sposobu na umieszczenie aplikacji w trayu po wcisnięciu minimalizacji okna. Jakie zdarzenie zachodzi w formie w chwili wciśnięcia minimalizacji formy ?

[Corvis]

1) Kładziesz na formę : TTrayIcon oraz ApplicationEvent

2) Chowanie okna ( można inczej to zrobić ) OnMinimize w ApplicationEvent

Kod: Zaznacz cały

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender) {
    Form1->Hide();
    TrayIcon1->Visible=true;
}

3) Pokazywanie okna po kliknięci w ikonę traya OnClick w TTrayIcon

Kod: Zaznacz cały

void __fastcall TForm1::TrayIcon1Click(TObject *Sender)
{
    Form1->Show();
    TrayIcon1->Visible=false;
}

pozdro,

[Cyfrowy Baron]

Jeżeli używasz środowiska C++Builder w wersji 2006 lub nowszej to musisz jeszcze w pliku projektu np. Project1.cpp usunąć tą linię:

Kod: Zaznacz cały

SetApplicationMainFormOnTaskBar(Application, true);

lub to (zależy od wersji środowiska):

Kod: Zaznacz cały

Application->MainFormOnTaskBar = true;

lub ustawić to na false:

Kod: Zaznacz cały

SetApplicationMainFormOnTaskBar(Application, false);

Kod: Zaznacz cały

Application->MainFormOnTaskBar = false;

---

Ten temat był niedawno obszernie opisywany na tym forum w tym wątku: http://programowanie.cal.pl/forum/viewtopic.php?f=2&t=810

---

Na samej górze forum masz takie pole Szukaj... można się nim posłużyć do wyszukiwania odpowiedzi.

[ludwik07]

A jak innaczej można ustawić TrayIcon tak żeby był widoczny tylko gdy aplikacja jest zminimalizowana? Bo mi jakieś smieszne błędy wyskakują typu "Source File not Found: trayicon.cpp" lub "Cannot Create System Shell Notification Icon".

[Cyfrowy Baron]

Skoro Tobie to nie działa, to znaczy, że coś robisz źle, gdyż używałem kiedyś środowiska C++Builder 6 i nie było z tym problemów.
Jeżeli nie możesz użyć komponentu, to musisz sam wszystko oprogramować. Obsługa ikonki w zasobniku systemowym z BalloonHint została opisana szczegółowo w tym wątku: http://programowanie.cal.pl/forum/viewtopic.php?f=2&t=815&p=5065&hilitt#p5059

Podam kompletny kod:

Plik nagłówkowy np. Unit1.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <AppEvnts.hpp>
//---------------------------------------------------------------------------

#define WM_SYSTEM_TRAY_NOTIFY (WM_USER + 1)

class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TPopupMenu *PopupMenu1;
        TMenuItem *Zamknij1;
        TApplicationEvents *ApplicationEvents1;
        TMenuItem *TestPopupMenu1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Zamknij1Click(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall ApplicationEvents1Minimize(TObject *Sender);
        void __fastcall ApplicationEvents1Restore(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall TestPopupMenu1Click(TObject *Sender);
        void __fastcall FormPaint(TObject *Sender);
private:        // User declarations

        TNotifyIconDataA Ficon;

        void ShowBalloonTip(char *szMsg,
          char *szTitle, UINT uTimeout, DWORD dwInfoFlags);
    void ShowHint(char *szHint, UINT uTimeout);

        void __fastcall WMTrayNotify(TMessage &Msg);

        bool winState;

public:         // User declarations
        __fastcall TForm1(TComponent* Owner);

 BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_SYSTEM_TRAY_NOTIFY, TMessage, WMTrayNotify)
 END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Plik źródłowy np. Unit1.cpp

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Ficon.cbSize = DWORD(&(PNotifyIconData()->hBalloonIcon));
        Ficon.hWnd = AllocateHWnd(WMTrayNotify);
        Ficon.uID = 0;
        Ficon.uFlags = NIF_ICON | NIF_TIP | NIF_INFO | NIF_MESSAGE;
        Ficon.uCallbackMessage = WM_SYSTEM_TRAY_NOTIFY;
        Ficon.hIcon = Application->Icon->Handle;
        Shell_NotifyIconA(NIM_ADD, &Ficon);
}

/* obsługa komunikatów */
//---------------------------------------------------------------------------
void __fastcall TForm1::WMTrayNotify(TMessage &Msg)
{
    switch(Msg.LParam)
    {
        case WM_RBUTTONUP:

            POINT WinPoint;
            GetCursorPos(&WinPoint);
            //SetForegroundWindow(Handle);
            PopupMenu1->Popup(WinPoint.x,WinPoint.y);
            PostMessage(Handle, WM_NULL, 0,0);
            break;
        case WM_LBUTTONDBLCLK:
                {
                  if(winState) Application->Restore();
                  else Application->Minimize();
          Visible = true;
          break;
        }
        case WM_MOUSEMOVE:
                {
         ShowHint("tytuł komunikatu", 10000);
                 break;
        }
        }
}
//---------------------------------------------------------------------------
void TForm1::ShowHint(char *szHint, UINT uTimeout)
{
                 strcpy( Ficon.szTip, szHint);
                 Ficon.uTimeout = uTimeout;
                 Shell_NotifyIconA(NIM_MODIFY, &Ficon);
}
//---------------------------------------------------------------------------
void TForm1::ShowBalloonTip(char *szMsg,
          char *szTitle, UINT uTimeout, DWORD dwInfoFlags)
{
        strcpy(Ficon.szInfoTitle, szTitle);
        strcpy(Ficon.szInfo, szMsg);
        Ficon.dwInfoFlags = dwInfoFlags;
        Ficon.uTimeout = uTimeout;
        Shell_NotifyIconA(NIM_MODIFY, &Ficon);
}
//---------------------------------------------------------------------------

/* zdarzenie przycisku TButton */
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ShowBalloonTip("Komunikat", "Tutuł", 10000, NIIF_WARNING);
}
//---------------------------------------------------------------------------

/* zdarzenia Formularza */
void __fastcall TForm1::FormShow(TObject *Sender)
{
 ShowWindow(Application->Handle, SW_HIDE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
 ShowWindow(Application->Handle, SW_HIDE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 Shell_NotifyIconA(NIM_DELETE, &Ficon);
}
//---------------------------------------------------------------------------

/* Zdarzenia komponentu TApplicationEvents */
void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
 winState = true;
 ShowWindow(Application->Handle, SW_HIDE);
 SetForegroundWindow(Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Restore(TObject *Sender)
{
 winState = false;
 ShowWindow(Application->Handle, SW_HIDE);
 SetForegroundWindow(Handle);
}
//---------------------------------------------------------------------------

/* zdarzenia TPopupMenu - podłączonego pod ikonę SysTray */
void __fastcall TForm1::TestPopupMenu1Click(TObject *Sender)
{
 ShowMessage("Kliknięto w menu kontekstowe ikony w zasobniku systemowym");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zamknij1Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

Podany wyżej kod nie korzysta z komponentu TTrayIcon. Należy pamiętać o zmianie w pliku projektu: Application->MainFormOnTaskBar = false;, lub podobnie, zależy od wersji środowiska.

---

[ludwik07]

Hmmm, może mi czegoś brakuje? Bo wcześniej mi to działało (wtedy chyba jakiś warunek zrobiłem), poprostu dodałem TrayIcon i warunek, że jeśli okno jest widoczne to ikona ma być nie widoczna a jeśli okno zminimalizowane to ikona ma być widoczna ale musiałem to przypadkowo usunąć -.- i teraz problem z tym mam. Teraz to wygląda jakby ikona potrzebowała czegoś co ją poinforumuje o tym czy okno jest zminimalizowane czy nie. Odrazu dodam, że te błędy wyskakują mi wtedy gdy ustawię Visible TrayIcon na true przy minimalizowaniu i false przy przywracaniu.

Spróbuje sobie zrobić to od nowa na nowym projekcie.

A jeśli chodzi o samo działanie ikony to ona jest widoczna cały czas i działa a mi chodzi o to żeby nie była widoczna cały czas tylko gdy okno jest zminimalizowane ;p (no chyba że coś nie doczytałem co jest bardzo możliwe)

A i gdy naciskam ShowBallonTip w tym przykładowym programie to nic sie nie dzieje u mnie ;D

[Cyfrowy Baron]

A i gdy naciskam ShowBallonTip w tym przykładowym programie to nic sie nie dzieje u mnie ;D

Musisz mieć włączone w systemie pokazywanie Balloon'ów. Ja mam np. wyłączone, dlatego wciśnięcie przycisku też nic nie daje.

---

Teraz to wygląda jakby ikona potrzebowała czegoś co ją poinforumuje o tym czy okno jest zminimalizowane czy nie.

W jaki sposób przechwytujesz komunikaty o minimalizacji i przywróceniu okna?

[ludwik07]

W jaki sposób przechwytujesz komunikaty o minimalizacji i przywróceniu okna?

Trudne pytanie :/ jeśli stworzenie warunku lub użycie ApplicationEvents się do tego nie zalicza to w żadne sposób.
I pewnie tego mi brakuje ;D

Ewentualnie może jeszcze innaczej uda mi się rozwiązać ten problem, jak jeszcze TrayIcon mi działał tak jak chce to wysłałem koledze ten projekt wiec jeśli jeszcze go ma to będę mogł sprawdzić cóż takiego zrobiłem żeby mi to działało.

[Cyfrowy Baron]

Chodziło mi o to, żebyś pokazał tutaj swój kod.

[ludwik07]

Próbowałem coś typu (i inne podobne kombinacje ;D na ukrywanie formy coś takiego działa więc uznałem, że i tu powinno):

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if (Form1->Visible)
TrayIcon1->Visible=false;
else
TrayIcon1->Visible=true;

Ale nie działało ;D no i jeszcze to co jest w 2 poście tego tematu co spełniło moje oczekiwania z tym, że można było zminimalizować aplikację tylko raz :/ No a jakie cudo jeszcze wczesniej miałem to Ci niestety narazie nie powiem.

Sorry, że tak późno odpisuję ale znów walczyłem z monitorem ;D (tym razem innym)

[Cyfrowy Baron]

Nie no człowieku! Przecież nie umieszczasz tego kodu w próżni lecz wywołujesz w jakimś zdarzeniu. Pokaż raczej cały kod.

To co widzę nie ma raczej sensu. Posłuż się komponentem TApplicationEvents :

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender) /* OnMinimize */
{
 ShowWindow(Application->Handle, SW_HIDE);
 SetForegroundWindow(Handle);
 TrayIcon1->Visible = true;
}
//--------------------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Restore(TObject *Sender) /* OnRestore */
{
 ShowWindow(Application->Handle, SW_SHOW);
 SetForegroundWindow(Handle);
}
//--------------------------------------------------------------------------------------
void __fastcall TForm1::TrayIcon1Click(TObject *Sender) /* TrayIcon - OnClick lub OnDbClick */
{
  Application->Restore();
  TrayIcon1->Visible = false;
}

[ludwik07]

Ahhh sorry już wiem w czym tkwił problem, na tym pasku po lewej stronie miałem Visible ustawione na true i w FormCreate miałem jedną zabłąkaną linijkę w której też było ustawione na true i przez to wyskakiwały te błędy nawet przy tym kodzie od Ciebie.

Naprawdę przepraszam za kłopot będę musiał uważniej przeglądać wszystko :/