Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Есть способ отображения подсказки для окна управления из кода 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)

 

Добавить комментарий


Защитный код
Обновить