VPF::Окно поверх опр окна? - Форум программистов

Pariah

Дата 8.2.2007, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

Репутация: нет
Всего: нет

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

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

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

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

ldr12

Дата 10.2.2007, 03:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 9.2.2007

Репутация: 1
Всего: 1

Задачка непростая... Минимальный геморрой будет с запуском в отдельном потоке в цикле проверки на активное окно и принятия соответствующих мер. В 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 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

можно так:
кидаем на форму таймер, стави гденить 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;

--------------------

There are always someone smarter than you...

Pariah

Дата 11.2.2007, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »