Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Окно поверх опр окна?

Автор: Pariah 8.2.2007, 15:16

Дарова народ!
Нужно следующее – как сделать так чтоб моё окно было только поверх определённого окна(например если FindWindow(nil , ‘Калькулятор’)<>0 то мы поверх него) а не всех окон? smile

Кстати если ету тему перенесут то говорю сразу я пишу на Delphi7 и WinApi(под Delphi7) smile

Плиз народ кинте исходный код как такое сделать smile

Буду ооч признателен за помощь!

Автор: ldr12 10.2.2007, 03:10

Задачка непростая... Минимальный геморрой будет с запуском в отдельном потоке в цикле проверки на активное окно и принятия соответствующих мер. В Form.OnShow, в случае VCL, или после CreateWindowEx(), создающего главное окно, впиши, добавив переменную ThID типа DWORD:

Код


CreateThread(nil, 0, @CheckWin, nil, 0, ThID);

И добавь чуть выше собственно главную процедурку:

Код


procedure CheckWin; stdcall;
var
  TargetWnd: DWORD;
begin
  repeat
    TargetWnd := FindWindow(nil, 'Калькулятор');
     
    if TargetWnd <> 0 then
      if GetForegroundWindow = TargetWnd then
        SetForegroundWindow(хендл_твоего_окна); //В случае с VCL - Application.Handle
    
    Sleep(150); //Проверка будет выполняться каждые 0.15 секунд, достаточно приемлемо, чтобы юзер не замечал задержки и чтобы процессор не кушался.
  until False;
end;

Автор: MetalFan 10.2.2007, 14:59

можно так:
кидаем на форму таймер, стави гденить 200-500мсек

Код


procedure TForm1.tmr1Timer(Sender: TObject);
var
  lHandle: THandle;
begin
  lHandle := FindWindow(nil, 'Калькулятор');
  if lHandle <> 0 then
  begin
    lHandle  := GetNextWindow( lHandle, GW_HWNDPREV );
    SetWindowPos( Handle, lHandle, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE );
  end;
end;

Автор: Pariah 11.2.2007, 13:58

ОГРОМНЫЙ ТХАНКС ldr12 и MetalFan smile