русс | укр

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

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


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


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


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


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


<== попередня лекція | наступна лекція ==>
Розміщення компонентів на Формі | Implementation


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