Class TGFPropAbout (unit Gfvcl) |
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 |
Properties |
Events |
Variables |
Constructors |
Functions |
---------------------------------------------------------------------} { 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 |