TCoolBar


Трохи програмування

Під час виконання програми, можна додавати
CoolBand-и. Наступний код, додає CoolBand на CoolBar з розміщеним на ньому
TDateTimePicker.


 





procedure CreateDatePickerOnCoolBar;
var dtPick: TDateTimePicker;
begin
dtPick := TDateTimePicker.Create(CoolBar1);
dtPick.Parent := CoolBar1;
CoolBar1.Bands.Items[Count-1].Text := “Pick a date”;

end;

ЗАУВАЖЕННЯ: як згадувалося раніше, розміщення контрола в кулбаре змушує
об'єкт створити TCoolBand і помістити елемент управління в band-е. При
допомоги "CoolBar1.Bands.Items [count – 1]" ми пов'язуємо текст з останнім
створеним TCoolBand.
ЗАМЕЧАНІЕ2: Пам'ять компонента TDateTimePicker
автоматично звільняється при звільненні пам'яті батька. Відбувається це,
коли програма завершується і CoolBar знищується формою.


Процедура CreateDatePickerOnCoolBar всього навсього створює
TDateTimePicker на кулбаре CoolBar. Для того, щоб використовувати події
TDateTimePicker, нам необхідно створити процедури обробників подій. Не будемо
вдаватися в подробиці створення об'єктів у Delphi. Для створення обробника
події для TDateTimePicker, нам необхідно написати метод (процедуру)
деякого об'єкта (зазвичай для цього вибирають головну форму) з таким же
кількістю параметрів, з такими ж типами та іменами параметрів. Потім, в коді,
змініть ім'я процедури на таке ж ім'я властивості TDateTimePicker, обробляти
яке Ви хочете. Після цього нова процедура автоматично стане обробником
події для цього об'єкта.


В кінці процедури CreateDatePickerOnCoolBar додайте






dtPick.OnCloseUp := dtpOnCloseUp;

OnCloseUp відбувається, коли випадає календар закривається. А тепер
використовуємо цю подію, щоб передати дату з DateTimePicker в компонент
Memo:


 





procedure TForm1.dtpOnCloseUp(Sender: TObject);
begin
Memo1.Lines.Add
(DateToStr((Sender as TDateTimePicker).Date));
end;


Не забудьте розмістити оголошення процедури dtpOnCloseUp секції
інтерфейсу (interface) юніта форми (private або public).


TControlBar


це стандартний Win32 елемент управління, який є частиною
операційної системи. Перевірте, чи присутній компонент TControlBar на
додаткової закладці набору компонент. TControlBar це рідний компонент VCL,
який працює практично так само як і кул бар. Цей компонент не використовує
у своїй роботі COMCTL32.DLL, як це робить , тому менш сприйнятливий
до примх Microsoft.


   Посилання
Див демонстрашку Webbrows
Delphi в директорії coolstuf яка демонструє використання TCoolbar.


Компонент
TMenubar. Це нащадок TToolbar, що має властивість меню, яке дозволяє
пов'язувати TMainMenu з панеллю інструментів (toolbar). Після цього компонент
містить усі пункти меню в тулбар.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*