Class TAboutDlg (unit Aboutdlg)

Inherits from

TComponent

Wrapper around the About Form that displays the form and also gets the properties as a component. This class gets Registered with Delphi

Constructors


constructor Create(AOwner: TComponent);

Constructor used to allocate the Picture


Functions

destructor Destroy;

Destructor to clean up

function Execute: Boolean;

Public declarations

This function creates the About Form, puts the appropriate values on the Form, displays it and then Frees the form.


procedure SetPicture(Value: TPicture);

Function called when the Picture property is changed} {Assign FPicture to the slected picture

Properties

property Copyright : String


property Picture : TPicture

Published declarations

property ProductName : String

SetPicture is function

Events

Variables

FCopyright : String;


FPicture : TPicture;

Private declarations

FProductName : String;

Temporary storage for picture


Constructors


constructor Create(AOwner: TComponent);

Constructor used to allocate the Picture


Functions


destructor Destroy;

Destructor to clean up


function Execute: Boolean;

Public declarations

This function creates the About Form, puts the appropriate values on the Form, displays it and then Frees the form. It returns true if the form was exited with te OK button and false if it was exited by closing


procedure SetPicture(Value: TPicture);

Function called when the Picture property is changed} {Assign FPicture to the slected picture


Properties


property Copyright : String


property Picture : TPicture

Published declarations


property ProductName : String

SetPicture is function


Events


Variables


FCopyright : String;


FPicture : TPicture;

Private declarations


FProductName : String;

Temporary storage for picture