Unit Msgverb |
Classes |
TMsgBoxEditor - ********* End Declaration ************** } { ************ declaration is for TMsgBox ***********
TMsgDlgEditor - TInPutBoxEditor = class(TDefaultEditor)
public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
{ ********* End Declaration ************** } { ************ declaration is for TMsgDlg ***********
Functions |
Types |
Constants |
Variables |
Functions |
Types |
Constants |
Variables |