System Tray - как показать форму поверх программы Opera

[SoftKoc]

Здравствуйте!!!

С новым годом!!!

При Form1.Show, если открыто еще что-то ( например Opera ) форма показывается под оперой, как сделать чтобы она показывалась поверх нее? Толи фокус поставить на форму, или как вообще с этим бороться?

procedure TForm1.CreateNotifyIcon;
Begin
 TrayIconData.cbSize:=SizeOF(TrayIconData);
 TrayIconData.Wnd:=Handle;
 TrayIconData.uID:=0;
 TrayIconData.uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
 TrayIconData.uCallbackMessage:=WM_ICONTRAY;
 TrayIconData.hIcon:=Application.Icon.Handle;
 StrPCopy(TrayIconData.szTip, Application.Title);
 Shell_NotifyIcon(NIM_ADD, @TrayIconData);
End;

Procedure TForm1.TrayMessage(var Msg: TMessage);
Begin
 Case Msg.LParam of
  WM_LBUTTONUP:
   Begin
    IF Form1.Visible Then
     Begin
      Form1.Hide;
     End
     Else
      Begin
       Form1.Show;
      End;
   End;
  WM_RBUTTONUP:
   Begin
    PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
    PostMessage(Handle, WM_NULL, 0, 0);
   End;
 End;
End;

procedure TForm1.DestroyNotifyIcon;
Begin
 Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
End;

Заранее очень благодарен!

[raxp]

попробуйте...

...
Form1.Show;
setforegroundwindow(form1.Handle);
...

[Kotofff]

Я конечно понимаю что "умничать" нехорошо, но всегда пользуюсь одной функцией (не помню где взял) под названием ForceForegroundWindow - это расширенная надстройка SetForegroundWindow которая более корректно работает.
Использование :

ForceForegroundWindow(Form1.Handle);

Сама функция в прикрепленном файле.

[SoftKoc]

Простите а можно как-то без этого?
А стандартными методами!

[raxp]

...кроме setforegroundwindow() можете также - SetWindowPos().

[Kotofff]

А что сложного то ?

А стандартными методами!

А ты думаешь setforegroundwindow() - не стандартный метод ?

[SoftKoc]

Большое спасибо всем за то что не оставили без внимания!!!
Разобрался!!! =-)))

    Form1.Show;
    Application.BringToFront;

[raxp]

молодцы однако bringtofront скрывает вот что...

procedure TApplication.BringToFront;
var
  TopWindow: HWnd;
begin
  if Handle <> 0 then
  begin
    TopWindow := GetLastActivePopup(Handle);
    if (TopWindow <> 0) and (TopWindow <> Handle) and
      IsWindowVisible(TopWindow) and IsWindowEnabled(TopWindow) then
      SetForegroundWindow(TopWindow);
  end;
end;

[SoftKoc]

Спасибо!!! =)