Скачать: CL | DM;

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

← →
Брат   (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 не работает разве?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c