VPF::Область подсвечивания. - Форум программистов

hub00

Дата 31.5.2008, 16:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте.
Как можно узнать область экрана которая подсвечивается при нажатии кнопки Tab.
К примеру, окно "Мой компьютер", нажимаем кнопку Tab выделяется какая-то ссылка или диск, еще раз нажимаем выделяется следущая ссылка итд. Как узнать ту область которая выделяется (подсвечивается)?

bems

Дата 3.6.2008, 18:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

сфокусированное окно можно найти так:

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  Windows;
var wnd:HWND;TID,MyTID,AttachedTID:DWORD;ClassName:string;
begin
  MyTID:=GetCurrentThreadId;
  AttachedTID:=0;
  while True do
   begin
   wnd:=GetForegroundWindow;
   if wnd=0 then Writeln('no foreground window')
            else begin
                 TID:=GetWindowThreadProcessId(wnd);
                 if TID=0 then Writeln('no thread')
                          else begin
                               if AttachedTID<>0
                                  then begin
                                       AttachThreadInput(MyTID,AttachedTID,false);
                                       AttachedTID:=0;
                                       end;
                               if TID<>MyTID
                                  then if AttachThreadInput(MyTID,TID,true)
                                          then AttachedTID:=TID
                                          else begin
                                               Writeln('can not attach to thread');
                                               continue
                                               end;
                               wnd:=GetFocus;
                               if wnd=0
                                  then Writeln('no focus')
                                  else begin
                                       SetLength(ClassName,255);
                                       try SetLength(ClassName,GetClassName(wnd,PChar(ClassName),255));
                                           Writeln(ClassName)
                                       finally SetLength(ClassName,0);
                                       end;
                                       end;
                               end;
                 end;
   end;
end.

а область внутри окна - только с конкретными типами окон работать. В случае с окном папки - как элемент ListView

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

Обижено школьников: 8

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