Class

Module

Last Modified

Scope

Inherits from

Declaration

TfrmConsultAlertsTo = class(TfrmBase508Form)
  cmdOK: TButton;
  cmdCancel: TButton;
  cboSrcList: TORComboBox;
  DstList: TORListBox;
  SrcLabel: TLabel;
  DstLabel: TLabel;
  pnlBase: TORAutoPanel;
  btnAdd: TButton;
  btnRemove: TButton;
  procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  //procedure cboSrcListdblClick(Sender: TObject);
  procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure DstListClick(Sender: TObject);
  procedure cboSrcListMouseClick(Sender: TObject);
private
  FActionType: integer;
  FRecipients: string ;
  FChanged: Boolean;
end;

DFM Objects

frmConsultAlertsTo : TfrmConsultAlertsTo
 ├pnlBase : TORAutoPanel
 │ ├SrcLabel : TLabel
 │ ├DstLabel : TLabel
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├cboSrcList : TORComboBox
 │ ├DstList : TORListBox
 │ ├btnAdd : TButton
 │ └btnRemove : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy

Class Fields

Name	Type	Scope	Comments
btnAdd	TButton	Public/Published	-
btnRemove	TButton	Public/Published	-
cboSrcList	TORComboBox	Public/Published	-
cmdCancel	TButton	Public/Published	-
cmdOK	TButton	Public/Published	-
DstLabel	TLabel	Public/Published	-
DstList	TORListBox	Public/Published	-
FActionType	Integer	Private	-
FChanged	Boolean	Private	-
FRecipients	UnicodeString	Private	-
pnlBase	TORAutoPanel	Public/Published	-
SrcLabel	TLabel	Public/Published	-

Methods

Name	Declaration	Scope	Comments
cboSrcListKeyDown	procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);	Public/Published	Procedure cboSrcListdblClick(Sender: TObject);
cboSrcListMouseClick	procedure cboSrcListMouseClick(Sender: TObject);	Public/Published	-
cboSrcListNeedData	procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer);	Public/Published	-
cmdCancelClick	procedure cmdCancelClick(Sender: TObject);	Public/Published	-
cmdOKClick	procedure cmdOKClick(Sender: TObject);	Public/Published	-
DstListClick	procedure DstListClick(Sender: TObject);	Public/Published	Procedure TfrmConsultAlertsTo.cboSrcListdblClick(Sender: TObject); begin if cboSrcList.ItemIndex = -1 then exit ; if DstList.SelectByID(cboSrcList.ItemID) = -1 then DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ; end;

Referenced By (2)