Реферат Курсовая Конспект
Procedure TForm1.ShowHint(Sender: TObject); begin - раздел Образование, Дерево элементов TTreeView Statusbar1.simpletext := Application.hint; End; Ита...
|
StatusBar1.SimpleText := Application.Hint; end;
Итак, наша процедура должна будет вызываться каждый раз, когда надо вывести подсказку. Внутри процедуры мы присваиваем в свойство SimpleText строки состояния текст находящийся в Application.Hint. А в Application.Hint всегда находиться подсказка, которую надо сейчас отобразить.
Теперь создай обработчик события OnShow для главной формы и в нём напиши:
procedure TForm1.FormShow(Sender: TObject); begin Application.OnHint := ShowHint; end;
Здесь мы программно назначаем нашу процедуру ShowHint в качестве обработчика события OnHint. Я люблю это делать программно, но можно было поступить и проще:
1. 1. Поставить на форму компонент ТApplicationEvents с закладки Additional.
2. 2. У этого компонента на закладке Events создать обработчик события OnHint и там сразу же написать «StatusBar1.SimpleText := Application.Hint».
На компакт диске, в директорииПримерыГлава 11Hintты можешь увидеть пример этой программы.
Теперь попробуем создать строку состояния из нескольких панелей. Выдели строку состояния и дважды щёлкни по свойству Panels. Перед тобой должно открыться окно редактора панелей:
В этом окне первая кнопка создаёт новую панель
(также можно нажать клавишу Ins), а вторая
удаляет выделенную (также можно нажать Del).
Создай новую панель и в её свойстве Width (ширина) установи значение 200. Теперь
создай ещё одну панель. Всё, можно закрывать окно. Теперь перейди в процедуру обработчик события OnHint и измени её текст на:
– Конец работы –
Эта тема принадлежит разделу:
Дерево элементов TTreeView...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Procedure TForm1.ShowHint(Sender: TObject); begin
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов