🚀 go-pugleaf

"Pawel Tatera" <paweltatera@pa80.chodziez.sdi.tpnet.pl> wrote:
>

Using the VCL, this works for me:

//-------------------------------------------------------------
void __fastcall TForm1::ToolButton2Click(TObject *Sender)
{
    if( (Screen->ActiveForm->WindowState == wsMinimized) || (Screen->ActiveForm->WindowState == wsMaximized) )
      {
          Screen->ActiveForm->Perform( WM_SYSCOMMAND, SC_RESTORE, NULL );
      }
    else Screen->ActiveForm->Perform( WM_SYSCOMMAND, SC_MAXIMIZE, NULL );
}
//-------------------------------------------------------------


    protected: // User declarations
        virtual void __fastcall WndProc( TMessage &Message );
//-------------------------------------------------------------
void __fastcall TForm2::WndProc( TMessage &Message )
{
    if( Message.Msg == WM_SYSCOMMAND )
      {
          switch( Message.WParam )
            {
                case SC_MINIMIZE: ShowMessage("Minimizing"); break;
                case SC_MAXIMIZE: ShowMessage("Maximizing"); break;
                case SC_RESTORE : ShowMessage("Restoring");  break;
            }
      }
    TForm::WndProc( Message );
}
//-------------------------------------------------------------

~ JD