VPF::хэндл заблокированой кнопки - Форум программистов

Sunvas

Дата 25.3.2006, 19:21 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Как узнать хэндл заблокированной кнопки (не моего приложения).
Стандартная функция WindowFromPoint для этого не подходит.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Ciber SLasH

Дата 25.3.2006, 21:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

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

Цитата(Sunvas @ 25.3.2006, 19:21

)

Как узнать хэндл заблокированной кнопки

1) Ищим форму приложения
2) продолжаем искать, но только дочерние окна
3) проверяем стиль кнопки, если есть стиль WS_DISABLED, то кнопка заблокирована
Примерно так:

Код


var
  ParentWnd,Wnd: HWND;
  Buff: PChar;
begin
  GetMem(Buff, 255);
  ParentWnd := FindWindow(nil, 'MyForm');
  Wnd := FindWindowEx(ParentWnd, 0, nil,nil);
  while Wnd <> 0 do
  begin
    GetClassName(Wnd, Buff, 255);
    Style = GetWindowLong(Wnd, GWL_STYLE);
    if (Pos('Button', Buff) > 0) and ((Style and WS_DISABLED) = WS_DISABLED) then
      SendMessage(Wnd, WM_ENABLED, 1,0);
    Wnd := FindWindowEx(ParentWnd, Wnd, nil,nil)
  end;
  FreeMem(Buff, 255)
end;

Sunvas

Дата 26.3.2006, 01:29 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Спасибо Ciber SLasH!

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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