Class TMsgDlgEditor (unit Msgverb) |
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 |
Properties |
Events |
Variables |
Constructors |
Functions |
************ 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
You get here from a mouse click
proc
Properties |
Events |
Variables |