Class TRkLookupForm (unit RkLookFm) |
Inherits from
TForm
procedure EdtSearchChange(Sender: TObject);
===========================} {== TRkLookupForm Methods ==} {===========================} {=========================================================================
TRkLookupForm.
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
BtnCancel : TButton;
BtnOK : TButton;
EdtSearch : TEdit;
GrdLookup : TDBGrid;
LblPrompt : TLabel;
PnlButtonOffset : TPanel;
PnlButtons : TPanel;
PnlLookup : TPanel;
PnlPrompt : TPanel;
SrcLookup : TDataSource;
NumbersOnly : Boolean;
SearchField : string;
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
BtnCancel : TButton;
BtnOK : TButton;
EdtSearch : TEdit;
GrdLookup : TDBGrid;
LblPrompt : TLabel;
PnlButtonOffset : TPanel;
PnlButtons : TPanel;
PnlLookup : TPanel;
PnlPrompt : TPanel;
SrcLookup : TDataSource;
NumbersOnly : Boolean;
SearchField : string;