Ріс.6. Зовнішній вигляд додатка, що використовує елемент управлінняActiveXMyForm

На лістингу 6 приведений код для додатка, зовнішній вигляд якого представлений на Рис. 6.

Лістинг 6

unit Unitl;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, MyFormProjlJTLB;

type

TForml = class(TForm)

MyForml: TMyForm;

GetMonth: TButton;

Editl: TEdit;

GetDay: TButton;

Edit2: TEdit;

SetMonth: TButton;

SetDay: TButton;

Label1: TLabel;

Label2: TLabel;

procedure GetMonthClick(Sender: TObject);

procedure GetDayClick(Sender: TObject);

procedure SetMonthClick(Sender: TObject)';

procedure SetDayClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Forml: TForml;

implementation {$R *.DFM}

procedure TForml.GetMonthClick(Sender: TObject);

begin

Editl.Text:=IntToStr(MyForml.Month+1);

end;

procedure TForml.GetDayClick(Sender: TObject);

begin

Edit2.Text:=IntToStr(MyForml.Day+1);

end;

procedure TForml.SetMonthClick(Sender: TObject);

begin

MyForml.Month:=StrToInt(Edit1.Text)-1;

end;

procedure TForml.SetDayClick(Sender: TObject);

begin

MyForml.Day:=StrToInt(Edit2.Text)-1;

end;

end.

При натисненні на будь-яку з двох кнопок, розміщених на формі зліва (GetMonth і GetDay), ви отримаєте порядковий номер значення з потрібного списку компоненту MyForm (оскільки нумерація елементів списку CоmВох на чинается з нуля, то ми додаємо до значення, що набуває, одиницю) у відповідне поле редагування Edit. Натиснення будь-якій з кнопок справа на формі (setMonth і setDay) приведе до передачі значення з необхідного поля редагування Edit в елемент управління ActiveX. При цьому станеться установка відповідної властивості елементу MyForm.

Роботу даного застосування ілюструє рис.7

Рис. 7 Додаток, використовуюче ActiveX в процесі виконання

РЕКОМЕНДОВАНА ЛІТЕРАТУРА

1. http://msdn.microsoft.com/ru-ru/library/ms473633.aspx -Архитектура сервера и сайта: обзор объектной модели

2. http://www.osp.ru/os/1997/04/179225/ -Web-серверы в версии Oracle

3. http://www.unn.ru/vmk/graphmod/index.php?id=consept - Конструирование компонент программного обеспечения на основании графовых моделей

4. http://www.interface.ru/magazine/tcs/last_is/398/wininet.html - Как проектировать повторно используемые HTTP-компоненты, используя WinInet и COM

5. http://hc.apache.org/httpcomponents-client/index.html - HttpComponents Apache

6. http://www.opennet.ru/base/dev/apache_req.txt.html - Архитектура сервера Apache. Механизм модулей. (apache web module)

7. http://www.specialist.ru/programs/course.asp?idc=1562 - " Разработка приложений в среде Microsoft Visual Basic 6.0"

8. http://dic.academic.ru/dic.nsf/enwiki/1323824 - Component-based software engineering

Не нашли, что искали? Воспользуйтесь поиском: