русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


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


Дата додавання: 2014-11-27; переглядів: 1014.


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

 


<== попередня лекція | наступна лекція ==>
Виконання індивідуального завдання | Implementation


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн