| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поместить окно поверх остальных [D6, Win2k]
Брат © (2005-01-06 13:52:00)При свертывании формы, помещаю значок в трей.
Вот код, с помощью которого я потом отображаю окно:
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;
Но получается когда у меня какоето другое приложение открыто, окно моей программы отображается, но только снизу другого.
А я хочу чтобы оно поверх всех остальных отбражалось.
Как это сделать?
cadaber (2005-01-07 19:37:00) [1]А BringToFront не работает разве?
pem (2005-01-06 17:54:00) [2]SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
| |
