Всплывающее окно и фокус

[mutabor]

В программе есть всплывающее окно, как сделать чтобы когда оно будет всплывать, оно было поверх остальных окон, но при этом не брало на себя фокус ввода?
Пример - окно окончания загрузки файла в Firefox, хочу так.

[eoln]

FireFox'a нету, но возможно так

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm;
begin
  Form2 := TForm.Create(Form1);
  Form2.FormStyle := fsStayOnTop;
  ...
  Form2.Show;
  Form1.Show;
end;

[chertovich]

ShowWindow, может быть)

[ZuBy]

вот так делается, хотя мною (и не только) замечено что этот способ не всегда корректно работает с VCL формами, а для API это просто подарок )

SetWindowPos(handle, HWND_TOPMOST, 0,0,0,0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);

[glGizma]

procedure TForm1.Button1Click(Sender: TObject);
var Form2: TForm;
begin
  Form2 := TForm.Create(Form1);
  Form2.FormStyle := fsStayOnTop;
  Form2.top:=Form2.top-Form2.Height;
  Form2.Show;
  while Form2.top <= 0 do Form2.top:= Form2.top+1;
  Form1.Show;
  Sleep(1000);
  while Form2.top >= -Form2.Height do Form2.top:= Form2.top-1;
  form2.close;
end;

Так будет немного реалистичнее

[mutabor]

glGizma, Вы уверены что это окно не будет забирать на себя фокус?

[Alex Cones]

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

[glGizma]

Конечно будет

[uraura]

вот же:

ShowWindow(Form2.Handle, SW_SHOWNA); покажет форму2

ShowWindow(form2.Handle, SW_HIDE); спрячет ее обратно

я использовал для показа своего хинта
http://programmersforum.ru/showthread.php?t=110267

[glGizma]

uraura;

Вы глупы... Вы пример-то пробовали?