КомпонентGroupIndexTagSpeedButton110SpeedButton221SpeedButton332
У обробник події OnClick для кнопки Ж введемо:
with sender as TSpeedButton dodown
end;
Події OnClick для решти двох кнопок зв'яжемо з подією SpeedButton1Click за допомогою Інспектора об'єктів, як у випадку з пунктами меню.
. Помістити на панель ще одну кнопку SpeedButton. У властивість Caption нічого не вводити. Виконати два клацання на властивості Glyph. У діалоговому вікні вибрати команду Load і з каталогу Program Files/Common Files/Borland Shared/Images/Buttons завантажимо файл Font.bmp або будь-який інший. p align="justify"> У обробнику OnClick написати наступний код:
with fontdialog1 doexecute then memo1.Font: = font;
18. Компонент Memo дозволяє зберігати інформацію лише у форматі txt, тому при закритті файлу всі елементи форматування пропадуть. Тому ми замінимо компонент на що дозволяє зберігати текст у форматі rtf. Для цього необхідно натиснути Alt + F12. На екрані з'явиться вікно з вмістом файлу Unit1.dfm (даний файл ресурсів форми містить всі налаштування форми, зроблені за допомогою Інспектора об'єктів). Знайдіть у цьому файлі опис компонента object Memo1: T Memo і замініть його на Memo1: TRichEdit. Потім знову натисніть Alt + F12. При компіляції погодитеся з тим, що вам запропонує Delphi. p align="justify">. Помістимо на панель ще три кнопки SpeedButton, які відповідатимуть за вирівнювання тексту по лівому краю, по правому краю і по центру. Задамо їх властивості наступним чином:
КомпонентGroupIndexTagSpeedButton540SpeedButton641SpeedButton742
У властивостях Caption введемо В«<В», В«>В» і В«=В» відповідно.
Для 1-й кнопки створимо обробник OnClick:
with sender as tspeedbutton do.Paragraph.Alignment: = TAlignment (tag)
В
Оброблювачі цієї події для інших кнопок зв'яжемо з SpeedButton5Click
. Встановити на форму компонент StatusBar, що знаходиться в палітрі Win32. Два рази клацнути на компоненті, щоб перейти у вікно редагування StatusBar. У вікні редагування три рази натиснути кнопку Додати, щоб отримати три панелі на компоненті. На перших двох буде відображатися поточний стан клавіш CapsLock і NumLock. На третій - системний час. p align="justify">. Додати на форму компонент Timer, розташований на палітрі System. додамо до списку глобальних змінних KS: Tkeyboardstate
Створити обробник OnTimer: (KS); StatusBar1 doKS [VK_Capital] = 1 then panels [0]. Text: = 'CAP' else panels [0]. Text: =''; KS [VK_NumLock ] = 1 then panels [1]. Text: = 'Num' else panels [1]. Text: ='';. Panels [2]. Text: = TimeToStr (Time);
end;
