Надежда Павлова
Надежда Павлова | Репутация: 0 (Без голоса) 18 июня 2020 в 17:35
Delphi7

Здравствуйте! Подскажите, пожалуйста, как исправить эту ошибку!?

unit tstNkEdit_;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  NkEdit;  //ссылка на модуль компонента

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;

    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myEdit: TNkEdit;  //компонент NkEdit

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    //создадим компонент и поместим его на форму
  myEdit:=TNkEdit.Create(self);
  myEdit.Parent:=self;
  myEdit.Left:=8;
  myEdit.Top:=64;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   label2.Caption:=FloatToStr(myEdit.Numb);
end;