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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

private
FText: TStrings;
btCalc: TButton;
lbResult: TLabel;
protected
procedure SetText(value: TStrings);
procedure btCalcClick(sender: TObject);
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property Caption;
property Top;
property Height;
property Width;
// ɋɜɨɣɫɬɜɨ ɤɥɚɫɫɚ TStrings
property Text: TStrings read FText write SetText;
end;
procedure Register;
implementation
constructor TCalcBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width := 200; Height := 150;
caption:='ɋɭɦɦɚ';
btCalc:=TButton.Create (self);
with btCalc do begin
Width := 75; Height := 25;
53

Страницы