TBrowserLookupEdit

Top  Previous  Next

TBrowserLookupEdit:TEdit

 

 Sheet.MergeCells(3,5,11,5);

 Sheet['C5'].CellComponent:=TBrowserLookupEdit.Create(Sheet);

 Sheet['C5'].CellComponent.Parent:=Sheet;

 with TBrowserLookupEdit(Sheet['C5'].CellComponent) do

 begin

   LookupSQL.Text:='select mat_druh from dba.bi_fakturace_main where mat_druh is not null group by mat_druh ';

   LookupDatabase:='oskar';

   LookupDispField:='mat_druh';

   LookupField:='mat_druh';

   MultiSelect:=True;

   ItemMustExist:=False;                                              

   Text:=clDruh;                              

 end;

 

 

Události

 

OnGetCellParams

procedure BrowserLookupEditGetCellParams(Sender: TObject; Field: TField;  Dataset: TDataSet; Font: TFont; var Background: TColor; Highlight: Boolean);

 

OnChange

procedure BrowserLookupEditChange(Sender: TObject);

 

OnKeyDown

procedure BrowserLookupEditKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

 

OnKeyPress

procedure BrowserLookupEditKeyPress(Sender: TObject; var Key: Char);

 

OnValueChange

procedure BrowserLookupEditValueChange(Sender: TObject);