Разработка компонентов в DELPHI. Вощинская Г.Э. - 52 стр.

UptoLike

Составители:

Рубрика:

Ⱦɥɹ ɬɟɫɬɢɪɨɜɚɧɢɹ ɫɨɡɞɚɣɬɟ ɧɨɜɵɣ ɩɪɨɟɤɬ, ɞɨɛɚɜɶɬɟ ɜ ɫɟɤɰɢɸ uses

ɫɫɵɥɤɭ ɧɚ ɦɨɞɭɥɶ TimeLabel ɢ ɜ ɨɛɪɚɛɨɬɱɢɤ OnCreate ɞɥɹ ɮɨɪɦɵ ɡɚ-

ɩɢɲɢɬɟ:

procedure TForm1.FormCreate(Sender: TObject);

var L: TTimeLabel;

begin

L:=TTimeLabel.Create(self);

L.Parent:=Self;

L.top:=0;

L.Left:=Clientwidth-L.width;

end;

Ⱦɥɹ ɭɫɬɚɧɨɜɤɢ ɤɨɦɩɨɧɟɧɬɚ ɜ ɫɪɟɞɭ Delphi ɜɵɛɟɪɢɬɟ ɩɭɧɤɬ ɦɟɧɸ

Component | Install Component, ɭɤɚɡɚɜ ɧɚ ɫɬɪɚɧɢɰɟ Into New Package ɢɦɹ

ɦɨɞɭɥɹ TimeLabel.pas ɢ ɢɦɹ ɩɚɤɟɬɚ TimeLabelPack.dpk.

4.3. Ʉɨɦɩɨɧɟɧɬ, ɜɵɩɨɥɧɹɸɳɢɣ ɜɵɱɢɫɥɟɧɢɹ

ɧɚɞ ɫɨɞɟɪɠɢɦɵɦ ɨɩɭɛɥɢɤɨɜɚɧɧɨɝɨ ɫɜɨɣɫɬɜɚ TStrings

ȼ ɤɚɱɟɫɬɜɟ ɩɪɟɞɤɚ ɜɵɛɟɪɟɦ TCustomGroupBox, ɤɨɬɨɪɵɣ ɛɭɞɟɬ ɞɨ-

ɩɨɥɧɢɬɟɥɶɧɨ ɫɨɞɟɪɠɚɬɶ ɤɧɨɩɤɭ btCalc ɢ ɦɟɬɤɭ lbResult ɞɥɹ ɜɵɜɨɞɚ

ɪɟɡɭɥɶɬɚɬɨɜ. ɇɚ ɦɟɬɤɟ ɛɭɞɟɬ ɨɬɨɛɪɚɠɟɧɚ ɫɭɦɦɚ ɡɧɚɱɟɧɢɣ, ɜɜɟɞɟɧɧɵɯ ɜ

ɦɧɨɝɨɫɬɪɨɱɧɨɦ ɫɜɨɣɫɬɜɟ Text ɬɢɩɚ TStrings (ɩɪɟɞɩɨɥɚɝɚɟɬɫɹ, ɱɬɨ ɤɚɠ-

ɞɨɟ ɡɧɚɱɟɧɢɟ ɡɚɧɢɦɚɟɬ ɨɞɧɭ ɫɬɪɨɤɭ).

Ɇɨɞɭɥɶ ɤɨɦɩɨɧɟɧɬɚ ɢɦɟɟɬ ɜɢɞ

unit CalcBox;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls;

type

TCalcBox = class(TCustomGroupBox)