| Class TDBHistoryComboBox (unit HistoryCombo) |
TDBComboBox
| Constructors |
constructor Create (AOwner : TComponent);| Functions |
destructor Destroy;
procedure Change;
procedure KeyPress(var Key : char);
procedure Loaded;
procedure Notification (AComponent : TComponent; AOperation : TOperation);
class procedure AddString (SelfObject : TObject; const Cad : string);
class procedure DeleteFromList (Obj : TObject);
function GetDataField : string;
function GetDataSource : TDataSource;
function GetKeepGlobalHistory : boolean;
class procedure InsertInList (const Value : string; Obj : TObject);
procedure NewGridKeyPress (Sender : TObject; var Key : char);
procedure NewOnExit (Sender : TObject);
procedure NewUpdateData (Sender : TObject);
procedure SetAddStringMode (value : TAddStringModeSet);
procedure SetDataField (const value : string);
procedure SetDataSource (value : TDataSource);
procedure SetDBGrid (value : TDBGrid);
procedure SetHistoryId (const value : string);
procedure SetKeepGlobalHistory (value : boolean);| Properties |
property AddStringMode : TAddStringModeSet
property DataField : string
property DataSource : TDataSource
property DBColumn : integer
property DBGrid : TDBGrid
property EnabledGridTypeHelp : boolean
property EnabledTypeHelp : boolean
property HistoryId : string
property KeepGlobalHistory : boolean
property MaxLength : | Events |
| Variables |
DataLink : TFieldDataLink;
FAddStringMode : TAddStringModeSet;
FDBColumn : integer;
FDBGrid : TDBGrid;
FEnabledGridTypeHelp : boolean;
FEnabledTypeHelp : boolean;
FHistoryId : string;
FItemsList : TStringList;
FLastOnExit : TNotifyEvent;
FLastUpdateData : TNotifyEvent;
LastGridKeyPress : TKeyPressEvent;
UpdateSelStart : boolean;
WaitChange : boolean;| Constructors |
constructor Create (AOwner : TComponent);TDBHistoryComboBox
| Functions |
destructor Destroy;
procedure Change;
procedure KeyPress(var Key : char);
procedure Loaded;
procedure Notification (AComponent : TComponent; AOperation : TOperation);
class procedure AddString (SelfObject : TObject; const Cad : string);
class procedure DeleteFromList (Obj : TObject);
function GetDataField : string;
function GetDataSource : TDataSource;
function GetKeepGlobalHistory : boolean;
class procedure InsertInList (const Value : string; Obj : TObject);
procedure NewGridKeyPress (Sender : TObject; var Key : char);
procedure NewOnExit (Sender : TObject);The next line is because the implementation of the SelStart and the SelLength properties is buggy in the class TCustomComboBox, this is the correct way to use the message CB_SETEDITSEL message
procedure NewUpdateData (Sender : TObject);
procedure SetAddStringMode (value : TAddStringModeSet);
procedure SetDataField (const value : string);
procedure SetDataSource (value : TDataSource);
procedure SetDBGrid (value : TDBGrid);
procedure SetHistoryId (const value : string);
procedure SetKeepGlobalHistory (value : boolean);| Properties |
property AddStringMode : TAddStringModeSet
property DataField : string
property DataSource : TDataSource
property DBColumn : integer
property DBGrid : TDBGrid
property EnabledGridTypeHelp : boolean
property EnabledTypeHelp : boolean
property HistoryId : string
property KeepGlobalHistory : boolean
property MaxLength : | Events |
| Variables |
DataLink : TFieldDataLink;
FAddStringMode : TAddStringModeSet;
FDBColumn : integer;
FDBGrid : TDBGrid;
FEnabledGridTypeHelp : boolean;
FEnabledTypeHelp : boolean;
FHistoryId : string;
FItemsList : TStringList;
FLastOnExit : TNotifyEvent;
FLastUpdateData : TNotifyEvent;
LastGridKeyPress : TKeyPressEvent;
UpdateSelStart : boolean;
WaitChange : boolean;