Delphi: використання компонентів MainMenu, StatusBar

Тема: Delphi: використання компонентів MainMenu, StatusBar.

Мета: Ознайомитися з особливостями використання компонентів MainMenu, StatusBar для побудови головного меню та рядка стану. Навчитися створювати проекти в середовищі Delphi з використанням компонентів MainMenu, StatusBar.

 

Завдання № 1.

Створити  проект який містить головне меню. В якості реакції на вибір пункту меню зявиться повідомлення про вибраний пункт.

Компоненти, що використовувались у ході виконання лабораторної роботи:

TMainMenu – призначений для додавання до програми головного меню, елемента, без якого не обходиться жодне з додатків для Windows.

Код програми:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    Edi1: TMenuItem;

    Run1: TMenuItem;

    New1: TMenuItem;

    Open1: TMenuItem;

    SaveCtrlS1: TMenuItem;

    Close1: TMenuItem;

    Reopen1: TMenuItem;

    Progect11: TMenuItem;

    Project21: TMenuItem;

    Project31: TMenuItem;

    CutCtrlX1: TMenuItem;

    CopyCtrlX1: TMenuItem;

    PastCtrlX1: TMenuItem;

    DeleteCtrlDel1: TMenuItem;

    RunF91: TMenuItem;

    StepOver1: TMenuItem;

    raceInto1: TMenuItem;

    procedure New1Click(Sender: TObject);

    procedure Open1Click(Sender: TObject);

    procedure SaveCtrlS1Click(Sender: TObject);

    procedure Close1Click(Sender: TObject);

    procedure Progect11Click(Sender: TObject);

    procedure Project21Click(Sender: TObject);

    procedure Project31Click(Sender: TObject);

    procedure CutCtrlX1Click(Sender: TObject);

    procedure CopyCtrlX1Click(Sender: TObject);

    procedure PastCtrlX1Click(Sender: TObject);

    procedure DeleteCtrlDel1Click(Sender: TObject);

    procedure RunF91Click(Sender: TObject);

    procedure StepOver1Click(Sender: TObject);

    procedure raceInto1Click(Sender: TObject);

  private

  public

  end;

var

  Form1: TForm1;

implementation

procedure TForm1.Close1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Close')

end;

procedure TForm1.CopyCtrlX1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Copy')

end;

procedure TForm1.CutCtrlX1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Cut')

end;

procedure TForm1.DeleteCtrlDel1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Delete')

end;

procedure TForm1.New1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт New')

end;

procedure TForm1.Open1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Open')

end;

procedure TForm1.PastCtrlX1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Past')

end;

procedure TForm1.Progect11Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Project 1')

end;

procedure TForm1.Project21Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Project 2')

end;

procedure TForm1.Project31Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Project 3')

end;

procedure TForm1.raceInto1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Trace Into')

end;

procedure TForm1.RunF91Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Run')

end;

procedure TForm1.SaveCtrlS1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Save')

end;

procedure TForm1.StepOver1Click(Sender: TObject);

begin

ShowMessage('Выбран пункт Step Over')

end;end.

 

Екранне зображення:

 

Завдання №2.

Створити  проект, який дозволяє відображати  різні можливості з рядком стану.

 

Компоненти, що використовувались у ході виконання лабораторної роботи:

TStatusBar - Призначена для розміщення різного роду службової інформації у вікнах редагування.

TCheckBox - являє собою поєднання невеликого віконця, яке і візуалізує наявністю або відсутністю "галочки" стан компонента, і компонента Label - заголовка, пояснюючого призначення перемикача.

TMemo - дозволяє вводити багаторядковий текст з клавіатури, завантажувати його з файлу, редагувати і зберігати в файл текстового формату

TRadioGroup - Група залежних перемикачів. Містить спеціальні властивості для обслуговування декількох пов'язаних між собою залежних перемикачів.

TButton - Командна кнопка. Використовується для реалізації в програмі команд за допомогою обробника події OnClick цього компонента.

TTimer - дозволяє вводити необхідні затримки між виконанням тих чи інших дій.

Код програми:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    StatusBar1: TStatusBar;

    Memo1: TMemo;

    RadioGroup1: TRadioGroup;

    CheckBox1: TCheckBox;

    Button1: TButton;

    Button2: TButton;

    Timer1: TTimer;

    procedure RadioGroup1Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Memo1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

  public

  end;

var

  Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

begin

statusbar1.Panels[2].Text:='Курсив';

memo1.Font.Style:=[fsItalic];

end else

begin

statusbar1.Panels[2].Text:='Звичайний шрифт';

memo1.Font.Style:=[];

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm1.Memo1Change(Sender: TObject);

begin

statusbar1.Panels[4].Text:='Рядок:'+inttostr(memo1.Lines.Count);

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case radiogroup1.itemindex of

0: begin

memo1.Font.Color:=clBlack;

statusbar1.Panels[1].Text:='Чорний колір';

end;

1: begin

memo1.Font.Color:=clred;

statusbar1.Panels[1].Text:='Червоний колір';

end;

2: begin

memo1.Font.Color:=clblue;

statusbar1.Panels[1].Text:='Синій колір';

end;end;end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if getkeystate(VK_Capital)=1 then

statusbar1.Panels[3].Text:='Великі букви' else

statusbar1.Panels[3].Text:='Маленкі бцкви';

statusbar1.Panels[5].Text:=timetostr(time);end;end.

Екранне зображення:

 

Висновок:

У ході лабораторної роботи ми Ознайомились з особливостями використання компонентів MainMenu, StatusBar для побудови головного меню та рядка стану. Навчилися створювати проекти в середовищі Delphi з використанням компонентів MainMenu, StatusBar.