Class TExpertForm (unit FoAsCoEx)

Inherits from

TForm

Constructors



Functions

procedure OKClick(Sender: TObject);

SetIsControl } { TFormExpert

function CreateForm(const FormIdent: string): TMemoryStream;

begin the class declaration

function CreateSource(const UnitIdent, FormIdent: string): TMemoryStream;


function DoFormCreation(const FormIdent: string): TForm;


procedure WriteFormatedText(Stream: TStream; FormatedText: PChar; const Args: array of const);

DoFormCreation

Properties

Events

Variables

AncestorEdt : TEdit;


CompoundCompRbo : TRadioButton;


ExpForm : TExpertForm;


FormCompRbo : TRadioButton;


Label1 : TLabel;


Label2 : TLabel;


NameEdt : TEdit;


NormalRbo : TRadioButton;


OKbtn : TButton;


SourceBuffer : PChar;

Private declarations


Constructors


Functions


procedure OKClick(Sender: TObject);

SetIsControl } { TFormExpert


function CreateForm(const FormIdent: string): TMemoryStream;

begin the class declaration


function CreateSource(const UnitIdent, FormIdent: string): TMemoryStream;


function DoFormCreation(const FormIdent: string): TForm;


procedure WriteFormatedText(Stream: TStream; FormatedText: PChar; const Args: array of const);

DoFormCreation


Properties


Events


Variables


AncestorEdt : TEdit;


CompoundCompRbo : TRadioButton;


ExpForm : TExpertForm;


FormCompRbo : TRadioButton;


Label1 : TLabel;


Label2 : TLabel;


NameEdt : TEdit;


NormalRbo : TRadioButton;


OKbtn : TButton;


SourceBuffer : PChar;

Private declarations