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

Вывод окна на передний план   Найти похожие ветки 

← →
tio   (2006-07-30 09:29) [0]

Уважаемые, Мастера!
Скажите, как в Windows 98 вывести главное окно MDI на
передний план (2 раза приложение не открывается, стоит мьютекс для защиты, и
файл открытый снова будет автоматически открыт в сущ. приложении).
В Windows XP все работает, но хочется чтобы и в 98.

Вот процедура вывода окна на передний план для XP:

function TMain_f.Finds(s: string): hWnd;
var
 Wnd: hWnd;
 buff: array[0..127] of Char;
begin
 Finds := 0;
 Wnd := GetWindow(Handle, gw_HWndFirst);
 while Wnd <> 0 do
 begin
 if length(buff)> 0 then
  if  (GetWindow(Wnd, gw_Owner) = 0) and
     (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
   begin
     GetWindowText(Wnd, buff, sizeof(buff));
     if pos(s, StrPas(buff)) > 0 then
     begin
       Finds := Wnd;
       Break;
     end;
   end;
   Wnd := GetWindow(Wnd, gw_hWndNext);
 end;
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 SetForegroundWindow(wnd);
 Application.ProcessMessages;
end;

---

← →
Phoroon~ ©   (2006-07-30 10:08) [1]

Поднимает окно на передний план
BringWindowToTop(Handle)

ИМХО
На WinXP; Win2000 точно работает

---

← →
tio   (2006-07-30 10:15) [2]

Так нужно и на WIndows 98!!!

---

← →
KilkennyCat ©   (2006-07-30 13:24) [3]

Minimimum win95, nt3.1 (c) MSDN

---

← →
KilkennyCat ©   (2006-07-30 13:25) [4]

Calling this function is similar to calling the SetWindowPos <ms633545.aspx> function to change a window"s position in the Z order. BringWindowToTop does not make a window a top-level window.

---

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

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



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