Поместить окно поверх остальных

← →
Брат (2005-01-06 13:52) [0]

При свертывании формы, помещаю значок в трей.

Вот код, с помощью которого я потом отображаю окно:

procedure TMainForm.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var hPrevWin : HWND;
begin
Application.Restore;
hPrevWin:=FindWindow("TMainForm","Отпрвка почты v.3.0");
SetForegroundWindow(hPrevWin);
MainForm.Show;
end;

Но получается когда у меня какоето другое приложение открыто, окно моей программы отображается, но только снизу другого.
А я хочу чтобы оно поверх всех остальных отбражалось.
Как это сделать?

← →
pem (2005-01-06 17:54) [1]

SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);

← →
cadaber (2005-01-07 19:37) [2]

А BringToFront не работает разве?

Поместить окно поверх остальных Найти похожие ветки