showmessage на заднем плане из за формы по верх всех окон , как исправить?

[Emmys]

showmessage на заднем плане из за формы по верх всех окон
как исправить?

Добавлено 29.09.13, 11:53
заменил на MessageBox с указанием handle Окна родителя. все норм стало. закрыто

[Filka]

Можно что-то типа такого:

procedure MyShowMessage(const Msg: string);
begin
  with CreateMessageDialog(Msg, mtCustom, [mbOK]) do
    try
      HelpContext := 0;
      HelpFile := '';
      FormStyle := fsStayOnTop;
      Position := poScreenCenter;
      ShowModal;
    finally
      Free;
    end;
end;

[Emmys]

Filka, жалко нет функции CreateOpenDialog
у меня сейчас такая же проблема только с вызовом OpenDialog1.Execute, на задний фон уходит тоже.
может подскажешь что нибудь?

[neut ral]

Цитата Emmys @ 03.10.13, 20:32

жалко нет функции CreateOpenDialog

GetOpenFileName

[Filka]

Emmys

procedure TForm1.Button1Click(Sender: TObject);
var
  P: PHandle;
  H: THandle;
begin
  P := @Application.Handle;
  H := P^;
  P^ := FindWindow('Shell_TrayWnd', nil);
  try
    OpenDialog1.Execute;
  finally
    P^ := H;
  end;
end;

Но лучше так не делать

[Emmys]

Filka, ПОМОГЛО но я не понял в чем суть куда... при чем тут Shell_TrayWnd
и почему так лучше не делать

[Filka]

Цитата Emmys @ 04.10.13, 13:22

суть куда...

TOpenDialog - обёртка над функцией GetOpenFileName. В неё передаётся структура OPENFILENAME. У неё есть поле hwndOwner (A handle to the window that owns the dialog box.)
При вызове метода Execute:

hWndOwner := Application.Handle;

Цитата Emmys @ 04.10.13, 13:22

при чем тут Shell_TrayWnd

Чтобы OpenDialog появлялся поверх других окон, нужно сделать, чтобы hWndOwner = HWND окна, которое имеет стиль WS_EX_TOPMOST.
Панель задач - окно, которое есть всегда (практически) и оно поверх других окон...

Цитата Emmys @ 04.10.13, 13:22

почему так лучше не делать

Т.к. изменяется Application.Handle... Можно, если осторожно

[Filka]

Emmys
Ещё можно так:

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
  SetWindowPos(GetParent(OpenDialog1.Handle), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;