Активировать подсказку для управления из кода

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

  1. WinHack
    Чтобы отобразить подсказку (ToolTip) для управления из кода 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) ;