Class TMsgDlgEditor (unit Msgverb)

Inherits from

TDefaultEditor

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 ***********

Constructors



Functions

procedure Edit;

************ declaration is for TMsgBox *********** } { You get here from double mouse click } {procedure TInPutBoxEditor.

procedure ExecuteVerb(Index: Integer);

You get here from a mouse click

function GetVerb(Index: Integer): string;

proc

function GetVerbCount: Integer;


Properties

Events

Variables


Constructors


Functions


procedure Edit;

************ declaration is for TMsgBox *********** } { You get here from double mouse click } {procedure TInPutBoxEditor.Edit; begin TInPutBox( Component ).Execute end; { You get here from a mouse click on } {procedure TInPutBoxEditor.ExecuteVerb(Index: Integer); var TheOpenDialog: TOpenDialog; begin if Index = 0 then { First Item 'Wav FileName...'} { try TheOpenDialog := TOpenDialog.Create(Application); with TheOpenDialog do begin InitialDir := 'c:\'; DefaultExt := 'WAV'; Filter := 'Wav Files|*.WAV'; if Execute then begin TInPutBox( Component ).WavFileName := FileName; Designer.Modified; end; end;{with} { finally TheOpenDialog.Free; end{try finaly} { else if Index = 1 then { second item 'Test MsgBox...'} { TInPutBox( Component ).Execute end; {proc} { Get menu Item string } {function TInPutBoxEditor.GetVerb(Index: Integer): string; begin Result := VerbInput[Index] end; { determine how many menu items to add } {function TInPutBoxEditor.GetVerbCount: Integer; begin Result := High(VerbInput) + 1; end; { ********* End Declaration ************** } { ************ declaration is for TDlgBox *********** } { You get here from a double mouse click


procedure ExecuteVerb(Index: Integer);

You get here from a mouse click


function GetVerb(Index: Integer): string;

proc


function GetVerbCount: Integer;


Properties


Events


Variables