[icsander]

Подскажите как на 99% определить, что окно ввода текста однострочное (напр. TEdit). Прверял стили окна - ES_MULTILINE не всегда есть у многострочных окон. З.Ы. Окна не моего приложения.

Код:

function HasMultLine(AHandle: HWND): Boolean;
var
  dwStyle: DWORD;
begin
  dwStyle := GetWindowLong(AHandle, GWL_STYLE);
  Result := (dwStyle and ES_MULTILINE) = ES_MULTILINE;
end;

[Bargest]

Хмм... По-хорошему, никак. Можно например сделать окно (простой белый прямоугольник), на котором рисовать строки вводимого текста и мигающий курсор. И это тоже будет окном ввода текста в каком-то смысле. Могу ошибаться, но по-моему тот же TMemo сделан подобным образом.

[angvelem]

Если быть точным, то TMemo и TEdit суть одно и тоже. Просто по какой-то причине, в своё время, фирма Borland решила сделать их как 2 разных контрола. У TMemo как раз выставлен флаг ES_MULTILINE

[icsander]

Есть 3 спорные идеи.
1. Проверять высоту контрола. У однострочных она обычно 20-24. Хотя тут многое зависит от размера шрифта и извращенной фантазии разработчика. Поэтому под вопросом.
2. По классу контрола (напр. TEdit). Тут вообще мрак. При использовании нестандартных компонентов или после обфускации кода вообще бред будет.
3. Ну и самая фантастическая. Определять реакцию контрола на <VK_RETURN> (в смысле переводит он каретку на след строку или нет). Тут вообще - "звезда в шоке".
У кого какие еще идеи будут ?

[angvelem]

Можно попытаться использовать функцию GetDlgItemText и проверить на символы переноса строк.

[NumLock]

многострочное окно скорее всего должно иметь возможность прокручивания, т.е. иметь стили WS_VSCROLL и ES_AUTOVSCROLL. может стоит попытаться проверить еще и их? если оно конечно не "FullCustomWindow" какое-нибудь.

[icsander]

Сообщение от angvelem

Можно попытаться использовать функцию GetDlgItemText и проверить на символы переноса строк.

Не совсем корректно, т.к. текста может не быть совсем или он может содержать символы перевода строки (а на самом деле перевода строки нет).

[icsander]

Спасибо всем, кто не прошел мимо. Буду пробовать все варианты и их комбинации.