Вопрос и Ответ 14 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Взрывной рост: Почему экспоненциальные организации в десятки раз продуктивнее вашей (и что с этим делать)

Еще недавно компаниям требовались десятки лет, чтобы заработать миллиард. Сегодня многие бизнесы, такие как Snapchat, WhatssApp и Uber, проходят этот путь за пару лет. Мы вступили в эпоху высоких скоростей, теперь, чтобы выжить и преуспеть, компании вынуждены стремительно расти. Ключевой вопрос: как успешно конкурировать в этом новом мире? Как избежать пресловутых болезней роста? Ответ – стать экспоненциальной организацией.

Эта книга – практическое руководство по созданию экспоненциальных компаний и управлению ими. Авторы рассказывают об опыте бизнеса, который вписался в новые условия, и дают советы, как адаптировать к переменам существующие организации. Благодаря «Взрывному росту» любая компания, от стартапа до огромной корпорации, научится использовать новые технологии, для того, чтобы добиться экспоненциального роста.

27 книг успешного руководителя

В книгах по саморазвитию содержатся ответы на все вопросы, которые подкидывает нам жизнь. Но чтобы прочитать хотя бы половину из них, может не хватить и целой жизни. Эта книга – отличное решение для всех, кто ценит собственное время. Она содержит 27 подробных обзоров лучших произведений деловой литературы. Причем обзоров, составленных человеком, который всю жизнь занимается развитием личностных и бизнес-навыков. Станислав Логунов, эксперт в строительной отрасли, управленец с более чем двадцатилетним стажем, создатель блога «Сила знаний», выбрал и системно изложил все самое важное из содержащегося в 27 книгах, с которыми просто необходимо ознакомиться каждому успешному руководителю.

Вопрос и Ответ 14

Версия для печати

Вопросы и Ответы

14. Как используя поля Hint создать строку подсказки?

Для отображения текста подсказки любого объекта, в строке подсказки, в зависимости от того над каким элементом управления или пунктом меню находится мышь, необходимо следующее:

создать процедуру, которая будет выводить подсказку на экран;
присвоить обработчику события Hint объекта Application эту процедуру.

В строку подсказки будет выводиться любой текст, находящийся в поле Hint, независимо от состояния ShowHint. Можно использовать две различных подсказки для одного элемента или пункта меню. Они должны разделяться символом '|'. Первая часть появится рядом с элементом (если ShowHint=True), а вторая - в строке подсказки. В случае одного варианта - он будет использоваться в обоих случаях.

Пример:

Для вывода текста подсказки используется Label1.

............

{описание собственной процедуры AppHint}

public

PROCEDURE AppHint(Sender: TObject);

............

{присвоение событию Hint имени нашей процедуры AppHint}
procedure TForm1.FormCreate(Sender: TObject);
begin

Application.OnHint := AppHint;

end;

............

{вывод подсказки на экран}
PROCEDURE TForm1.AppHint(Sender: TObject);
BEGIN

Label1.Caption := Application.Hint;

END;

............

...предыдущая страница следующая...
оглавление