Вверх ↑
Разработчик
Ответов: 26235
Рейтинг: 2140
#1: 2025-02-19 02:08:06 ЛС | профиль | цитата
А лучше всего пойти по пути Win и создавать внутренний интерфейс хинта только при необходимости, а не постоянно:


procedure THIMST_HDHints.SetHintManager;
begin
  if not Assigned(sControl) then exit;

  if Value = nil then
  begin
    defHintHD := THIHintManager.Create;
    defHintHD.InitByDefault;
    Value := defHintHD.getInterfaceHint;
  end;

  hid := Value.init(sControl.GetWindowHandle);
  Value.hint(hid, '');
  fHint := Value;
end;
Тогда вот это надо отключить:

//initialization
//  defHintHD := THIHintManager.Create;
//  defHintHD.InitByDefault;
карма: 22

0