Class Topm_Form_AskUser

Unit

askuser

Declaration

type Topm_Form_AskUser = class(TForm)

Description

Hierarchy

• TForm
• Topm_Form_AskUser

Overview

Fields

	opm_Label_AskUserTitle: TLabel;
	opm_Edit_AskUserData: TEdit;
	opm_BitBtn_AskUserOk: TBitBtn;
	opm_BitBtn_AskUserCancel: TBitBtn;
	opm_ComboBox_AskUserList: TComboBox;
	AU_Title : STRING;
	AU_Directions : STRING;
	AU_PassChar : CHAR;
	AU_MaxLen : LONGINT;
	AU_TextOrList : BOOLEAN;
	AU_DataText : STRING;
	AU_DataList : TStringList;
	AU_ListItem : LONGINT;
	AU_PreCleanList : BOOLEAN;
	AU_DataListText : STRING;

Methods

	procedure FormShow(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	procedure opm_BitBtn_AskUserOkClick(Sender: TObject);

Description

Fields

opm_Label_AskUserTitle: TLabel;

opm_Edit_AskUserData: TEdit;

opm_BitBtn_AskUserOk: TBitBtn;

opm_BitBtn_AskUserCancel: TBitBtn;

opm_ComboBox_AskUserList: TComboBox;

AU_Title : STRING;

AU_Directions : STRING;

AU_PassChar : CHAR;

AU_MaxLen : LONGINT;

AU_TextOrList : BOOLEAN;

AU_DataText : STRING;

AU_DataList : TStringList;

AU_ListItem : LONGINT;

AU_PreCleanList : BOOLEAN;

AU_DataListText : STRING;

Methods

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure opm_BitBtn_AskUserOkClick(Sender: TObject);