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

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

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

Чтобы отобразить подсказку (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) ;

 

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


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