-
Прошу помощи в связи стем, что: Application.HintPause := 5000; "нелигитимно" как то для KOL... Думаю, что где то менять надо через Applet.Perform это свойство, но обыскался не нахожу, как это сделать. Hint`ы вываливаются слишком быстро.
-
А хинты как реализованы? Если через USE_MHTOOLTIP, тогда есть TMHToolTip.SetDelay
-
ну да, конечно, сам хотел, сам и решил... Итого. Берем 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; некрасиво? Ну и фиг с ним, я ответ имею и приемлемо в моих условиях.
|