Головна |
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».
На компакт диску, В директорії\ Приклади \ Глава 11 \ Hintти можешь увидеть приклад цей програми.
Тепер спробуємо створити рядок стану з декількох панелей. Виділи рядок стану і двічі клацни по властивості Panels. Перед тобою має відкритися вікно редактора панелей:
У цьому вікні перша кнопка створює нову панель
(Також можна натиснути клавішу Ins), а друга
видаляє виділену (також можна натиснути Del).
Створи нову панель і в її властивості Width (Ширина) встанови значення 200. Тепер
створи ще одну панель. Все, можна закривати вікно. Тепер перейди в процедуру обробник події OnHint і зміни її текст на:
Procedure TTreeViewForm.AddButtonClick (Sender: TObject); var | CaptionStr: String; begin | Private | ListView1.Items.EndUpdate; // Прорисовуємо всі зміни відразу | Implementation | If Path [Length (Path)] <> '\' then | R: TRect; begin if ToolBar1.HostDockSite <> ControlBar1 then | r: TRect; begin if ToolBar1.HostDockSite <> ControlBar1 then |