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

Новые книги

Путь Samsung. Стратегии управления изменениями от мирового лидера в области инноваций и дизайна

Основываясь на опыте десятилетних исследований и интервью с 80 топ-менеджерами, авторы книги «Путь Samsung» создали первое полное руководство по новаторским принципам управления, позволившим преобразовать небольшую технологическую компанию в один из самых успешных мировых брендов. Сформулированная председателем совета директоров Ли Гонхи «Новая управленческая инициатива» заложила основу для реализации «трех парадоксов управления Samsung»: баланс между размером и скоростью, диверсификация и специализация, сочетание восточной и западной управленческих культур.

Профессиональные идеи и практические советы от инсайдеров Samsung делают книгу «Путь Samsung» бесценным руководством по управлению инновационными компаниями для руководителей среднего и высшего звена коммерческих компаний и государственных структур, а также занимательным чтением для пытливых умов, интересующихся стратегиями достижения успеха.

Как думают великие компании: три правила

В любой отрасли можно обнаружить компании, которые сталкиваются с теми же трудностями, что и конкуренты, но – в отличие от них – неизменно достигают выдающихся результатов. Так что же они делают иначе, чем остальные? И можем ли мы чему-то у них научиться?

В поисках ответов на эти вопросы Майкл Рейнор и Мумтаз Ахмед, топ-менеджеры крупнейшей международной консалтинговой компании Deloitte, проанализировали данные по 25 000 компаний за 45 лет. В результате уникального по своему масштабу исследования им удалось сформулировать самые важные на их взгляд правила, которыми следует руководствоваться при планировании деятельности и стратегических маневров в современных рыночных условиях.

Вопрос и Ответ 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;

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

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