VPF::SetWindowPos – окно выше все остальных???

Nicholas

Дата 3.11.2004, 09:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Я нахожу окошко по неполному названию следующей функцией:

Код


function TForm1.Find(s: string): hWnd; 
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Find := 0;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> Application.Handle) and
      IsWindowVisible(Wnd) and
      (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
        Find := Wnd;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

Обычно, окно выше все остальных я ставлю так:

Код


SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height ,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Что-то заблудился в типах как мне из Wnd получить handle???
Или что-то еще можно придумать?
:sample

VIY

Дата 3.11.2004, 09:28 (ссылка)

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

Загрузка ...

Новичок

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

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

GetDC(GetWindow(Wnd, gw_hWndNext));

p0s0l

Дата 3.11.2004, 10:38 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата(Nicholas @ 3.11.2004, 09:05)

Что-то заблудился в типах как мне из Wnd получить handle???

Wnd и есть тот Handle

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

С уважением, г-н Посол.

Nicholas

Дата 4.11.2004, 04:14 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(p0s0l @ 3.11.2004, 10:38)

Wnd и есть тот Handle

, я тему создал, а потом читал ее читал, так и не понял с чего я взял, что wnd и handle есть разные вещи, ведь в описании функций-то типы указаны wnd ... Заработался ...

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