Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

procedure TForm1.N4Click(Sender: TObject); begin close; end;

procedure TForm1.N7Click(Sender: TObject); begin aboutbox.show end;

procedure TForm1.N2Click(Sender: TObject); begin if opendialog1.Execute then memo1.Lines.LoadFromFile(opendialog1.filename) end;

procedure TForm1.N3Click(Sender: TObject); begin if savedialog1.Execute then memo1.Lines.SaveToFile(savedialog1.filename) end;

end.

unit Unit2;

{Модуль, описывающий окно “О программе”}

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;

type
TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Comments: TLabel;

OKButton: TButton; procedure OKButtonClick(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
AboutBox: TAboutBox;

implementation

{$R *.DFM}

procedure TAboutBox.OKButtonClick(Sender: TObject); begin

Hide end; end.

Данная программа демонстрирует использование меню. Она имеет главное меню и всплывающее, которое появляется при нажатии правой кнопки мышки.
Меню снабжены клавишами быстрого доступа, используется разделительная линия.

Меню «Открыть», «Сохранить», «Выход» и «О программе» снабжены клавишами быстрого доступа. Всплывающее меню, имеющее два пункта –
«Открыть» и «Сохранить». При их нажатии вызываются события соотвутствующих пунктов главного меню.

Выводы

Рекомендуем скачать другие рефераты по теме: реферат слово, шпорі по философии.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата