Jak zamknąć okno po kliknięciu poza jego obszarem?

[michael23]

Kolejne pytanie. Stworzyłem formularz , w którym umieściłem ikonkę po której naciśnięciu wyświetla się inny formularz. Jak zamknąć drugi formularz
naciskając przycisk myszy poza jego obszarem?

[Cyfrowy Baron]

Musisz przechwycić komunikat o dezaktywacji tego okna, czyli w formularzu dla tegoż okna umieszczasz taki kod:

plik nagłówkowy:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
        TWndMethod ActiveApp;
        void __fastcall GetActiveApp(TMessage &Msg);

plik źródłowy:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
 ActiveApp = this->WindowProc;
 this->WindowProc = GetActiveApp;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::GetActiveApp(TMessage &Msg)
{
 if(Msg.Msg == WM_ACTIVATE &&Msg.WParam == FALSE)
 {
  Close();
 }

 ActiveApp(Msg);
}