🚀 go-pugleaf

"PaoloItaly" <paolot@sirius-es.it> wrote in message 
news:485bccb4$1@newsgroups.borland.com...

> How to add/remove buttons on windows taskbar?

The only way is to create/destroy top-level, unowned, WS_EX_APPWINDOW 
windows.

You need to be a little more specific about your needs if you want more 
help.


Gambit 

> The only way is to create/destroy top-level, unowned, WS_EX_APPWINDOW 
> windows.

My code:

void __fastcall TFormShowWindow::CreateParams(TCreateParams &Params)
{
  TForm::CreateParams(Params);
  Params.ExStyle |= WS_EX_APPWINDOW;
}

void __fastcall TFormShowWindow::NewWindowProc(TMessage &Msg)
{
  switch(Msg.Msg)
  {
    case WM_EXITSIZEMOVE:
         if (Parent == parent)
         {
           BorderStyle = bsSizeable;
           Parent = NULL;
           Top  = ptCurrent.y;
           Left = ptCurrent.x;
           Width  = Width - 20;
           Height = Height - 20;
         }
         else
         {
             BorderStyle = bsToolWindow;
             Top    = parent->ClientRect.Top;
             Left   = parent->ClientRect.Left;
             Width  = parent->ClientRect.Right;
             Height = parent->ClientRect.Bottom;
             Parent = parent;
         }
     break;
  }
}

The problem is that when i set Parent to NULL, the taskbar is updated but 
the
ALT-TAB selection i can't find it, and the main form can't raise to the top.

Thanks for Your help

Ciao

"PaoloItaly" <paolot@sirius-es.it> wrote in message 
news:485f5fb8$1@newsgroups.borland.com...

> void __fastcall TFormShowWindow::CreateParams(TCreateParams &Params)
> {
>  TForm::CreateParams(Params);
>  Params.ExStyle |= WS_EX_APPWINDOW;
> }

In order for such a window to appear on the Taskbar, you need to change the 
parent window to be the Desktop as well, ie:

    void __fastcall TFormShowWindow::CreateParams(TCreateParams &Params)
    {
        TForm::CreateParams(Params);
        Params.ExStyle |= WS_EX_APPWINDOW;
        Params.WndParent = ::GetDesktopWindow(); // <-- add this
    }


Gambit 

> In order for such a window to appear on the Taskbar, you need to change 
> the parent window to be the Desktop as well, ie:
>
>    void __fastcall TFormShowWindow::CreateParams(TCreateParams &Params)
>    {
>        TForm::CreateParams(Params);
>        Params.ExStyle |= WS_EX_APPWINDOW;
>        Params.WndParent = ::GetDesktopWindow(); // <-- add this
>    }
>
I'm trying to undock/dock a form on a tabsheet, with messages
WM_ENTERSIZEMOVE, WM_EXITSIZEMOVE.
I succescfully undock/dock the form, but if i push the taskbar button of
MainForm, MainForm don't bring to front, i've to click the caption bar
or minimize undocked form to have focus.

"PaoloItaly" <paolot@sirius-es.it> wrote in message 
news:4860d0ea@newsgroups.borland.com...

> I'm trying to undock/dock a form on a tabsheet

I suggest using a TFrame for that instead.  Put all of your controls onto a 
TFrame, and then put the TFrame onto a blank TForm when floating, and 
destroy the TForm and move the TFrame to the tabheet when docked.


Gambit 

> I suggest using a TFrame for that instead.  Put all of your controls onto 
> a TFrame, and then put the TFrame onto a blank TForm when floating, and 
> destroy the TForm and move the TFrame to the tabheet when docked.
>
>
> Gambit

Thanks