Конференция "KOL" » Как изменить HintPause для KOLForm приложения ? [Delphi]
 
  • vastani (30.11.15 16:52) [0]
    Прошу помощи в связи стем, что:
    Application.HintPause := 5000;
    "нелигитимно" как то для KOL...
    Думаю, что где то менять надо через Applet.Perform
    это свойство, но обыскался не нахожу, как это сделать.
    Hint`ы вываливаются слишком быстро.
  • DWorker (02.12.15 19:58) [1]
    А хинты как реализованы? Если через USE_MHTOOLTIP, тогда есть TMHToolTip.SetDelay
  • vastani (03.12.15 13:00) [2]
    ну да, конечно, сам хотел, сам и решил...
    Итого.
    Берем KOLHintRA, в процедуре
    procedure THintRA.CreateHintHandle
    вместо строки (закоментил ее)
    SendMessage(fHintHandle, TTM_SETDELAYTIME, 0, MakeLong(fDelay, 0));
    пишу:
     SendMessage(fHintHandle, TTM_SETDELAYTIME, TTDT_AUTOPOP, 5000 ); // время демонстрации
     SendMessage(fHintHandle, TTM_SETDELAYTIME, TTDT_INITIAL, 3000 ); // задержка до хинта
     SendMessage(fHintHandle, TTM_SETDELAYTIME, TTDT_RESHOW, 500 );   // пауза между фокусами соседних хинтов
    выше в модуле добавили следующее:
    const
         TTDT_AUTOMATIC = 0;  // автоматический расчет всех задержек по умолчанию
         TTDT_RESHOW    = 1;
         TTDT_AUTOPOP   = 2;
         TTDT_INITIAL   = 3;
    некрасиво?
    Ну и фиг с ним, я ответ имею и приемлемо в моих условиях.
 
Конференция "KOL" » Как изменить HintPause для KOLForm приложения ? [Delphi]
Есть новые Нет новых   [118645   +50][b:0][p:0]