🚀 go-pugleaf

"Richard Kavanagh" <dd.foldhill[at]googlemail.com> wrote in message 
news:46f80367@newsgroups.borland.com...
>> Well, my application, which is often in the system tray, gets restored to 
>> the desktop when the second instance executes the code I posted earlier. 
>> Does it not work for you?  How are you minimizing your app to the tray?
>> - Dennis
>
> Dennis, I modified a TrayIcon component I found, (Apologies to the 
> writer - I did not save your name) I think thev relevant function is:-
>
>
> void __fastcall TrkTrayIcon::MainFormVisible(bool AVisible)
> {
>     // Do not change at Designtime...
> if(!ComponentState.Contains(csDesigning))
> {
>  if((Application->MainForm != NULL) && 
> Application->MainForm->HandleAllocated())
>   Application->MainForm->Visible = AVisible;
> }
> }

Okay.  When I send my application to the tray, I do something similar:

void __fastcall TMyMainForm::MinimizeToTray(TObject* /*Sender*/)
{
   ShowWindow(Application->Handle,SW_HIDE);
}

In my case,

         if ( IsIconic( hAppWnd ) )
         {
            ShowWindow( hAppWnd, SW_RESTORE );
         }

is sufficient to bring the application out of the tray and put it back onto 
the desktop.  So, you might try hiding the form with ShowWindow() instead of 
using MainForm->Visible=false (I am not sure, but I think the two methods 
work differently).  Or, if you don't want to do that, you may be able to set 
Visible=true in an OnRestore handler:

TMyMainForm::TMyMainForm(TComponent* Owner)
    : TForm(Owner)
{
   // call RestoreFromTray if the GUI is restored from a minimized/iconized 
state
   Application->OnRestore = RestoreFromTray;

}

void __fastcall TMyMainForm::RestoreFromTray(TObject* /*Sender*/)
{
    Application->MainForm->Visible = true;
}

- Dennis