| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WinPopup
kjeka © (2003-07-28 19:51:00)
Сервер свернут в трэй. Как распахнуть окно из трэя при подключении клиента? Пробовал в OnConnect вызвать fmMain.Show, ничего не получается.
Rouse_ (2003-07-29 01:17:00) [1]Не получается распахнуть окно или не срабатывает OnConnect?
Попробуй прятать так:
ShowWindow(Application.Handle, SW_HIDE);
Application.MainForm.Visible := False;
А показывать вот так:
ShowWindow(Application.Handle, SW_RESTORE);
Application.MainForm.Visible := True; ( SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @OldTimeOut, 0)
Не получается распахнуть окно или не срабатывает OnConnect?
Попробуй прятать так:
ShowWindow(Application.Handle, SW_HIDE);
Application.MainForm.Visible := False;
А показывать вот так:
ShowWindow(Application.Handle, SW_RESTORE);
Application.MainForm.Visible := True;
hWnd := GetForegroundWindow;
if hWnd = Application.Handle then Exit;
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @OldTimeOut, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(000), 0);
SetForegroundWindow(Application.Handle);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(OldTimeOut), 0);
Желаю успехов
| |
