Опис алгоритму
Розмістимо на формі такі компоненти: три поля Edit, Radiogroup і два Button, Checkbox. Компонент Delphi Edit являє собою однорядкове текстове поле, що служить для введення даних користувачем. Основною властивістю компонента Delphi Edit, передача введеної інформацію, є властивість Edit1.Text типу String. Компонент RadioGroup являє собою контейнер з групою компонентів RadioButton (перемикачів). Такий компонент спрощує організацію роботи перемикачів, порівняно з іншими груповими контейнерами, які вимагають додавати перемикачі вручну. Компонент Delphi CheckBox - незалежний перемикач. Цей компонент використовується для включення / виключення будь-яких опцій або для індикації стану, при цьому на формі CheckBox може бути декілька, і кожен може вмикати і вимикати незалежно один від одного.
Текст програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
RadioGroup1: TRadioGroup;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
checkbox1: TCheckBox;
procedure CheckBox1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,n:integer;
implementation
{$R *.dfm}
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.checked=true
then memo1.enabled:=true
else memo1.Enabled:=false;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0
then combobox1.Style:=csDropDown;
if radiogroup1.ItemIndex=1
then combobox1.Style:=csDropDownList;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
n:=50;
for i:=1 to n do
begin
if combobox1.ItemIndex=i
then memo1.Font.Size:=strtoint(combobox1.Text);
end;
end;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13
then
begin
combobox1.items.add(combobox1.Text);
end;
end;
end.
Апробація
Завдання № 11
Тема завдання: Мова ObjectPascal, початки роботи в Delphi.
Постановка задачі
Розмістити на формі компоненти MainMenu (реалізувати завантаження файлу у RichEdit , збереження під іншим іменем, вихід з програми, про програму з гарячими клавішами), RichEdit та відповідні діалоги. Розробити аналог програми WordPad на базі названих компонент. Через меню реалізувати виклик діалога FontDialog для зміни шрифта виділеного тексту. При зміні розмірів форми змінювати позицію компонентів. Для завершення роботи програми реалізувати гарячу клавішу Alt + X.
Опис алгоритму
Розміщуємо на формі такі компоненти:MainMenu, Richedit, Opendialog, Savedialog, Button, ComboBox . Компонент MainMenu - це не візуальний компонент delphi (місце розміщення якого на формі не має значення для користувача, так як він побачить не сам компонент, а меню, згенероване ним), призначений для виведення головного меню на формі. Компонент RichEdit- це багато рядкове вікно редагування текстів в збагаченому форматі Rtf, що дозволяє проводити вибір кольору, шрифту, пошук тексту і т.п. Компонент OpenDialog не візуальний компонент призначений для підтримки операції відкриття файлів, здатний працювати з будь-якими типами файлів. При зверненні до цього компоненту викликається стандартне діалогове вікно відкриття файлу. Компонент SaveDialog не візуальний компонент, призначений для підтримки операції збереження файлів, здатний працювати з будь-якими типами файлів. При зверненні до цього компоненту викликається стандартне діалогове вікно збереження файлу. Компонент ComboBox являє собою комбінацію поля редагування (Edit) і список (ListBox), що дає можливість ввести дані шляхом набору на клавіатурі або вибору зі списку. Робота з ComboBox майже не відрізняється від роботи зі списком ListBox.