Подвійним натисненням клавіші “миші” на Формі і кнопці 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;