Події 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;