Створення процедур обробки подій SpinEdit1Change і SpinEdit2Change

Події SpinEdit1Change і SpinEdit2Change виникають при будь-якій зміні значення в полі редактора SpinEdit1 і SpinEdit2 відповідно. Створимо процедури обробки цих подій, в яких привласнимо значення n і m, одержемо поля редакторів SpinEdit, з властивостям ColCount і RowCount компонентів StringGrid. Це дозволить управляти розмірами таблиць StringGrid за допомогою компонентів SpinEdit без додаткових кнопок, оскільки зміна значень в полі редактора SpinEdit відразу приведе до зміни розміру таблиць StringGrid. Двічі клацніть “мишею” на компоненті SpinEdit1 – курсор встановиться в тексті процедури-обробника події SpinEdit1Change:

procedure TForm1.SpinEdit1Change(Sender: TObject). Уважно наберіть оператори цієї процедури, використовуючи текст модуля UnMas(див. п.4.1.3). Аналогічним чином створіть процедуру події SpinEdit2Change: procedure TForm1.SpinEdit2Change(Sender: TObject).

Текст модуля UnMas

UnitUnMas;

Interface

Uses

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

StdCtrls, Spin, Grids;

Type

TForm1 = class(TForm)

Label1: TLabel;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

Label8: TLabel;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

SpinEdit3: TSpinEdit;

SpinEdit4: TSpinEdit;

Label6: TLabel;

Label7: TLabel;

Button1: ТВutton;

procedureFormCreate(Sender: TObject);

procedureSpinEdit1Change(Sender: TObject);

procedureSpinEdit2Change(Sender: TObject);

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Var

Form1: TForm1;