Class TRkLookupForm (unit RkLookFm)

Inherits from

TForm

Constructors



Functions

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

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;