Двойным нажатием клавиши “мыши” в свободном поле формы откроем процедуру обработки события FormCreate и введем текст процедуры.
Процедуры обработки событий нажатия кнопок создаются так же, как в предыдущих работах, вывод этих процедур на экран осуществляется двойным щелчком по компонентам. Процедура обработки события SpinEditChange выводится двойным щелчком по компоненту SpinEdit.
Пользуясь текстом модуля UnFile, внимательно наберите операторы этих процедур.
Текст модуля UnFile
Unit UnFile;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Buttons, Spin;
Type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtnNew: TBitBtn;
BitBtnOpen: TBitBtn;
BitBtnSave: TBitBtn;
SpinEdit1: TSpinEdit;
procedureFormCreate(Sender: TObject);
procedure BitBtnNewClick(Sender: TObject);
procedure BitBtnOpenClick(Sender: TObject);
procedure BitBtnSaveClick(Sender: TObject);
procedureButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureSpinEdit1Change(Sender: TObject);
