| Class TRkLookupForm (unit RkLookFm) |
TForm
| Constructors |
| Functions |
procedure EdtSearchChange(Sender: TObject);
procedure EdtSearchKeyPress(Sender: TObject; var Key: Char);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);| Properties |
| Events |
| Variables |
BtnCancel : TButton;
BtnOK : TButton;
EdtSearch : TEdit;
GrdLookup : TDBGrid;
LblPrompt : TLabel;
PnlButtonOffset : TPanel;
PnlButtons : TPanel;
PnlLookup : TPanel;
PnlPrompt : TPanel;
SrcLookup : TDataSource;
NumbersOnly : Boolean;
SearchField : string;| Constructors |
| Functions |
procedure EdtSearchChange(Sender: TObject);===========================} {== TRkLookupForm Methods ==} {===========================} {========================================================================= TRkLookupForm.EdtSearchChange This method is called whenever the contents of the EdtSearch edit field changes. As the user enters characters, this method uses the Locate method to find a match. =========================================================================
procedure EdtSearchKeyPress(Sender: TObject; var Key: Char);Resize the edit field
procedure FormResize(Sender: TObject);Move cursor to first record in grid
procedure FormShow(Sender: TObject);with
| Properties |
| Events |
| Variables |
BtnCancel : TButton;
BtnOK : TButton;
EdtSearch : TEdit;
GrdLookup : TDBGrid;
LblPrompt : TLabel;
PnlButtonOffset : TPanel;
PnlButtons : TPanel;
PnlLookup : TPanel;
PnlPrompt : TPanel;
SrcLookup : TDataSource;
NumbersOnly : Boolean;
SearchField : string;