Створення процедур обробки подій FormCreate і Button1Click.

Подвійним натисненням клавіші “миші” на Формі і кнопці Button1 створіть відповідні процедури обробки подій. Користуючись текстом модуля UnDinMas, уважно наберіть оператори цих процедур.

При бажанні можна створити процедуру, яка виділятиме заданим кольором межі осередків з якнайменшим і найбільшим значеннями в компоненті StringGrid. Для створення такої процедури зробіть активним компонент StringGrid і на сторінці Events(події) Інспектора Об'єктів двічі клацніть “мишею” в правій частині події OnDrawCell. У відповідь Delphi створить обробник цієї події – процедуру procedure TForm1.StringGrid1DrawCellі встановить курсор між операторами beginі endцієї процедури. Використовуючи текст модуля UnDinMas, уважно наберіть оператори процедури TForm1.StringGrid1DrawCell.

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

UnitUnDinMas;

Interface

Uses

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

StdCtrls, Spin, Grids, Buttons;

Type

TForm1 = class(TForm)

Label1: TLabel;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

Label8: TLabel;

StringGrid1: TStringGrid;

Label2: TLabel;

Label5: TLabel;

Label3: TLabel;

Button1: ТВutton;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

Label9: TLabel;

procedureFormCreate(Sender: TObject);

procedureSpinEdit1Change(Sender: TObject);

procedureSpinEdit2Change(Sender: TObject);

procedureStringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

Rect: TRect; State: TGridDrawState);

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Var

Form1: TForm1;