С HintManager попробую разобраться
--- Добавлено в 2025-02-19 00:23:41
Попробуй сделать так и тестани
procedure THIMST_HDHints.SetHintManager;
begin
if not Assigned(sControl) then exit;
if Value = nil then
// if HDHints.Text = '' then
// exit
// else
Value := defHintHD.getInterfaceHint;
hid := Value.init(sControl.GetWindowHandle);
Value.hint(hid, '');
fHint := Value;
end;
--- Добавлено в 2025-02-19 00:47:15
Это была попытка повторить менеджер из Win. Там при пустом поле Hint внутренний менеджер не создается. Тут интерфейс создается в любом случае, но, как оказалось, не инициализировался при пустом списке. А при наличии внешнего менеджера мы получаем его интерфейс.
--- Добавлено в 2025-02-19 00:53:40
Результат отпиши, а то надо обязательно править все это безобразие.
Поиск
Друзья
Администрация