Активация подсказки из кода

Тема в разделе "Delphi", создана пользователем WinHack, 2 дек 2016.

  1. WinHack
    Есть способ отображения подсказки для окна управления из кода Delphi:

    Код:
    procedure DoHint(AControl: TControl) ;
    var
       pt: TPoint;
    begin
       pt := AControl.ClientToScreen(Point(1,1)) ;
       SetCursorPos(pt.x, pt.y) ;
       Application.ActivateHint(pt) ;
    end;
    Курсор устанавливается в позицию управления, для которого нужно отобразить подсказку, а затем появляется сама подсказка.

    Внимание: удостоверьтесь, что свойство ShowHint управления установлено в True, а свойство Hint назначено для Edit1.

    Пример использования:

    Код:
    DoHint(Edit1)