| Class TMsgBoxEditor (unit Msgverb) |
TDefaultEditor
********* End Declaration ************** } { ************ declaration is for TMsgBox ***********
| Constructors |
| Functions |
procedure Edit;
procedure ExecuteVerb(Index: Integer);
function GetVerb(Index: Integer): string;
function GetVerbCount: Integer;| Properties |
| Events |
| Variables |
| Constructors |
| Functions |
procedure Edit;********* End Declaration ************** } { ************ declaration is for TMsgBox *********** } { You get here from double mouse click
procedure ExecuteVerb(Index: Integer);You get here from a mouse click on
function GetVerb(Index: Integer): string;proc} { Get menu Item string
function GetVerbCount: Integer;determine how many menu items to add
| Properties |
| Events |
| Variables |