VPF::TComboBoxEx - Форум программистов

Seldon

Дата 8.9.2006, 12:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

если у TComboBoxEx установить AutoCompleteOptions = [acoAutoSuggest] то при наборе текста может открывацца список с вариантами из TComboBoxEx.ItemsEx
user posted image

как программно узнать, показан в данный момент этот список или нет?

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

MiBEditor v2.Alpha 10 - Программерский редактор

Yanis

Дата 8.9.2006, 14:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Код

function AutoSuggestDropDownVisible: Boolean;
const
  szcAutoSuggestDropdown = 'Auto-Suggest Dropdown';
begin
  Result := GetWindowLong(FindWindow(szcAutoSuggestDropdown, nil), GWL_STYLE)
            and WS_VISIBLE <> 0;
end;

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

*щёлк*

Seldon

Дата 8.9.2006, 21:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

вариант. спасибо.
а нельзя ли об этом спросить сам TComboBoxEx? копал msdn - ничего похожего не нашёл

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

MiBEditor v2.Alpha 10 - Программерский редактор

Yanis

Дата 11.9.2006, 10:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Seldon
Как я понял ComboBoxEx и сам не знает, что выскакивает окошко автозаполнения.

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

*щёлк*

Yanis

Дата 11.9.2006, 11:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Предлагаю более надёжный способ определения видимости списка "самовнушения" smile

Код

function GetCName(hWnd: HWND): string;
var
  lpC: PAnsiChar;
begin
  lpC := GetMemory(MAX_PATH - 1);
  GetClassName(hWnd, lpC, MAX_PATH);
  Result := lpC;
  FreeMemory(lpC);
end;

function AutoSuggestDropDownVisible: Boolean;
const
  szcAutoSuggestDropdown = 'Auto-Suggest Dropdown';
begin
  Result := GetWindowLong(FindWindow(szcAutoSuggestDropdown, nil), GWL_STYLE)
            and WS_VISIBLE <> 0;
end;

{ ... }

const
  szcAutoSuggestDropdown = 'Auto-Suggest Dropdown';
begin
  if (GetCName(GetTopWindow(0)) = szcAutoSuggestDropdown) and AutoSuggestDropDownVisible then
    { список автозаполнения виден }
  else
    { список не виден }
end;

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

*щёлк*

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