Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

WinPopup   Найти похожие ветки 

← →
kjeka   (2003-07-28 19:51) [0]

Сервер свернут в трэй. Как распахнуть окно из трэя при подключении клиента? Пробовал в OnConnect вызвать fmMain.Show, ничего не получается.

---

← →
Rouse_ ©   (2003-07-29 01:17) [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);

Желаю успехов

---

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

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.041 c