Class TGFPropAbout (unit Gfvcl16)

Inherits from

TClassProperty

--------------------------------------------------------------------} { Component AboutBox } { TGFCompAbout = class(TComponentEditor) procedure ExecuteVerb(Index: Integer); override; function GetVerb(Index: Integer): string; override; function GetVerbCount: Integer; override; procedure ShowAbout; end; {--------------------------------------------------------------------} { Property AboutBox

Constructors



Functions

procedure Edit;


function GetAttributes: TPropertyAttributes;


procedure ShowAbout;

---------------------------------------------------------------------} { Component AboutBox } {procedure TGFCompAbout.

Properties

Events

Variables


Constructors


Functions


procedure Edit;


function GetAttributes: TPropertyAttributes;


procedure ShowAbout;

---------------------------------------------------------------------} { Component AboutBox } {procedure TGFCompAbout.ShowAbout; begin GFAboutBox := TGFAboutBox.Create(Application); GFAboutBox.ShowModal; GFAboutBox.Free; end; function TGFCompAbout.GetVerbCount: Integer; begin Result := 1; end; function TGFCompAbout.GetVerb(Index: Integer): string; begin Result := 'About'; end; procedure TGFCompAbout.ExecuteVerb(Index: Integer); begin ShowAbout; end; {---------------------------------------------------------------------} { Property AboutBox


Properties


Events


Variables