Class

TResponseDialog

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TOleServer

Declaration


  TResponseDialog = class(TOleServer)
  private
    FIntf:        IResponseDialog;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TResponseDialogProperties;
    function      GetServerProperties: TResponseDialogProperties;
{$ENDIF}
    function      GetDefaultInterface: IResponseDialog;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IResponseDialog);
    procedure Disconnect; override;
    function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse;
    property  DefaultInterface: IResponseDialog read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TResponseDialogProperties read GetServerProperties;
{$ENDIF}
  end;

Class Hierarchy


Class Fields

Name Type Scope Comments
FIntf Private -

Properties

Name Type Scope Comments
DefaultInterface Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Connect procedure Connect; override; Public -
ConnectTo procedure ConnectTo(svrIntf: IResponseDialog); Public -
Disconnect procedure Disconnect; override; Public -
GetDefaultInterface function GetDefaultInterface: IResponseDialog; Private -
InitServerData procedure InitServerData; override; Protected -
ProcessSurveyResults function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; Public -