RE: Re: [DUG]: Bring an App to the front

[Jason Coley]

Title: RE: Re: [DUG]: Bring an App to the front

Thanks Chen, how long has the Activate procedure been in Word, 95, 97 or 2000?

Jason

 -----Original Message-----
From:   [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]  On Behalf Of Cheng Wei
Sent:   Friday, 3 November 2000 8:04 a.m.
To:     Multiple recipients of list delphi
Subject:        RE: Re: [DUG]:  Bring an App to the front

WordApp.Visible := True;
WordApp.Activate;

Regards
Cheng

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Jason Coley
Sent: Thursday, 2 November 2000 23:11
To: Multiple recipients of list delphi
Subject: RE: Re: [DUG]: Bring an App to the front


Thanks for that code, but how do I get the HWND, when I create the Word App
by

WordApp := CreateOLEObject('Word.Application');

Regards
Jason Coley
Manawatu Software Solutions
http://www.software-solutions.co.nz/


 -----Original Message-----
From:   Corey Murtagh [mailto:[EMAIL PROTECTED]]
Sent:   Wednesday, 1 November 2000 8:36 p.m.
To:     Multiple recipients of list delphi
Subject:         Re: [DUG]:  Bring an App to the front

> Jason Coley wrote:
>
> Is there a way to bring an Apps window to the front, I have an OLE handle
> to a window (Word) and I want to bring that window to the front, what's
> the best way to do this?

As Patrick mentioned, BringWindowToFront is the official method, but it
won't work as expected on Win98/2K/ME.  On those platforms when a process
which is not the current owner of the forground window calls
BringWindowToFront it just flashes the icon on the task bar.  To get around
that you have to run the code in the context of the current foreground
process.  Here's some C++ code that I've been using which does it:

bool ForceWindowToFront(HWND hWnd)
{
bool Result;
DWORD ForegroundWindowThreadID;
DWORD WindowThreadID;
  if (hWnd == GetForegroundWindow())
    Result = true;
  else
  {
    ForegroundWindowThreadID =
GetWindowThreadProcessId(GetForegroundWindow(), NULL);
    WindowThreadID = GetWindowThreadProcessId(hWnd, NULL);
    if (ForegroundWindowThreadID != WindowThreadID)
    {
      AttachThreadInput(ForegroundWindowThreadID, WindowThreadID, true);
      Result = SetForegroundWindow(hWnd);
      AttachThreadInput(ForegroundWindowThreadID, WindowThreadID, false);
    }
    else
      Result = SetForegroundWindow(hWnd);
    ShowWindow(hWnd, SW_RESTORE);
  }
  return Result;
}

--
Corey Murtagh
The Electric Monk
"Quidquid latine dictum sit, altum viditur!"
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"