Нужен в функции доступ к свойству TFormulaEdit, которое унаследовано от TEdit.

[tonatas]

Здравствуйте, у меня такая проблема есть код

unit QFormulaEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
  TFormulaEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;
function OrdinaryExample:real;
implementation

procedure Register;
begin
  RegisterComponents('My Component', [TFormulaEdit]);
end;

function OrdinaryExample:real;
begin
end;

end.

Мне нужен в функции доступ к свойству TFormulaEdit которое унаследувано от TEdit.

[dmitriegorovih]

TFormulaEdit Это не свойство насколько я вижу это класс который вы собственно ручно пишите )

P.S. Процедуры надо ставить после public или published вот так

unit QFormulaEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
  TFormulaEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
function OrdinaryExample:real;
    { Published declarations }
  end;

procedure Register;
implementation

procedure Register;
begin
  RegisterComponents('My Component', [TFormulaEdit]);
end;

function OrdinaryExample:real;
begin
end;

end.

[tonatas]

Свойство Text